/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / util.fq / util.fw

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 03 00 24 02 00 ff ed fb | 00 00 00 00 2d 00 00 00 |..$.....|....-...|
|00000010| 4a 9e b3 09 3f 00 5a 00 | 9d 00 00 00 00 00 00 00 |J...?.Z.|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 06 00 a2 00 08 0a 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 06 00 44 00 0c 00 01 00 |........|..D.....|
|00000050| 02 00 16 00 0d 01 55 00 | 8a 00 d2 00 0f 01 5e 01 |......U.|......^.|
|00000060| a6 01 ee 01 37 02 4c 02 | 55 02 5e 02 d1 02 da 02 |....7.L.|U.^.....|
|00000070| e3 02 1c 03 28 03 34 03 | 7d 03 a3 03 cc 03 6b 04 |....(.4.|}.....k.|
|00000080| 0d 05 0d 00 0d 00 6e 00 | 64 00 2c 00 ff 01 00 ff |......n.|d.,.....|
|00000090| 04 00 a4 00 02 00 05 40 | 1d 00 02 00 36 00 13 00 |.......@|....6...|
|000000a0| 1d 00 03 00 36 00 14 00 | 00 00 01 00 4f 00 15 00 |....6...|....O...|
|000000b0| 1c 00 02 00 2e 00 03 00 | 1d 00 03 00 0a 00 00 00 |........|........|
|000000c0| 00 00 00 00 01 00 01 00 | 41 08 01 00 00 41 e6 01 |........|A....A..|
|000000d0| 02 00 a6 00 18 82 00 00 | 00 01 00 00 02 00 04 00 |........|........|
|000000e0| 55 54 49 4c 00 ff ff ff | ff ff ff ff ff ff ff ff |UTIL....|........|
|000000f0| 49 00 a8 00 18 82 00 00 | 00 01 00 00 02 00 22 04 |I.......|......".|
|00000100| 3b 20 45 78 74 65 72 6e | 61 6c 20 50 72 6f 67 72 |; Extern|al Progr|
|00000110| 61 6d 73 ff 01 00 ff 3b | 20 20 20 20 20 20 20 20 |ams....;|        |
|00000120| 20 20 20 20 20 41 63 63 | 65 73 73 20 74 6f 20 45 |     Acc|ess to E|
|00000130| 78 74 65 72 6e 61 6c 20 | 2e 43 4f 4d 20 61 6e 64 |xternal |.COM and|
|00000140| 20 2e 45 58 45 20 66 69 | 6c 65 73 ff 01 00 ff 3b | .EXE fi|les....;|
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 64 64 |        |     add|
|00000160| 65 64 20 62 79 20 4c 6c | 6f 79 64 20 50 61 72 73 |ed by Ll|oyd Pars|
|00000170| 6f 6e 73 20 20 30 37 2d | 31 34 2d 38 35 ff 01 00 |ons  07-|14-85...|
|00000180| ff 3b 09 09 09 09 09 09 | 09 09 20 20 4f 72 69 67 |.;......|..  Orig|
|00000190| 69 6e 61 6c 6c 79 20 3a | 20 54 65 6c 65 63 6f 6d |inally :| Telecom|
|000001a0| 6d 75 6e 69 63 61 74 69 | 6f 6e 73 20 62 79 20 20 |municati|ons by  |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 ff 01 00 ff 3b |        |   ....;|
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001e0| 20 42 72 69 61 6e 20 52 | 75 73 73 65 6c 6c 20 20 | Brian R|ussell  |
|000001f0| 30 37 2d 31 34 2d 38 35 | ff 01 00 7f ff 01 00 7f |07-14-85|........|
|00000200| 3b 20 63 68 65 63 6b 20 | 6d 65 6d 6f 72 79 ff 01 |; check |memory..|
|00000210| 00 7f 40 69 66 28 40 6d | 65 6d 61 76 61 69 6c 20 |..@if(@m|emavail |
|00000220| 3c 20 31 30 30 30 30 2c | ff 01 00 7f 09 40 6c 69 |< 10000,|.....@li|
|00000230| 73 74 28 ff 01 00 7f 09 | 09 40 70 72 6f 6d 70 74 |st(.....|.@prompt|
|00000240| 28 22 4e 6f 74 20 65 6e | 6f 75 67 68 20 61 76 61 |("Not en|ough ava|
|00000250| 69 6c 61 62 6c 65 20 6d | 65 6d 6f 72 79 20 66 6f |ilable m|emory fo|
|00000260| 72 20 22 20 26 ff 01 00 | 7f 09 09 09 22 74 68 65 |r " &...|...."the|
|00000270| 20 54 65 6c 65 63 6f 6d | 6d 75 6e 69 63 61 74 69 | Telecom|municati|
|00000280| 6f 6e 73 20 69 6e 74 65 | 72 66 61 63 65 21 22 29 |ons inte|rface!")|
|00000290| 2c ff 01 00 7f 09 09 40 | 72 65 74 75 72 6e 28 30 |,......@|return(0|
|000002a0| 29 29 29 2c ff 01 00 7f | ff 01 00 7f 3b 20 70 72 |))),....|....; pr|
|000002b0| 69 6e 74 65 72 20 64 69 | 72 65 63 74 69 76 65 73 |inter di|rectives|
|000002c0| ff 01 00 7f 40 70 6f 28 | 30 29 2c 20 40 6c 6c 28 |....@po(|0), @ll(|
|000002d0| 38 30 29 2c 20 40 70 72 | 69 6e 74 72 65 74 75 72 |80), @pr|intretur|
|000002e0| 6e 2c ff 01 00 7f ff 01 | 00 7f 3b 20 74 75 72 6e |n,......|..; turn|
|000002f0| 20 6f 66 66 20 73 63 72 | 65 65 6e 20 65 63 68 6f | off scr|een echo|
|00000300| ff 01 00 7f 40 65 63 68 | 6f 28 23 6f 66 66 29 2c |....@ech|o(#off),|
|00000310| ff 01 00 7f ff 01 00 7f | 3b 20 73 79 73 74 65 6d |........|; system|
|00000320| 20 64 72 69 76 65 20 73 | 65 74 20 74 6f 20 44 4f | drive s|et to DO|
|00000330| 53 20 62 6f 6f 74 20 64 | 72 69 76 65 ff 01 00 7f |S boot d|rive....|
|00000340| 3b 20 65 78 61 6d 70 6c | 65 20 6f 66 20 68 6f 77 |; exampl|e of how|
|00000350| 20 74 6f 20 73 65 74 20 | 79 6f 75 72 20 6f 77 6e | to set |your own|
|00000360| 20 73 79 73 74 65 6d 20 | 64 72 69 76 65 3a 20 20 | system |drive:  |
|00000370| 40 73 65 74 28 55 54 49 | 4c 2e 53 79 73 74 65 6d |@set(UTI|L.System|
|00000380| 5f 64 72 69 76 65 2c 20 | 22 42 3a 22 29 2c ff 01 |_drive, |"B:"),..|
|00000390| 00 7f 40 73 65 74 28 55 | 54 49 4c 2e 53 79 73 74 |..@set(U|TIL.Syst|
|000003a0| 65 6d 5f 64 72 69 76 65 | 2c 20 40 6d 69 64 28 40 |em_drive|, @mid(@|
|000003b0| 67 65 74 65 6e 76 28 22 | 43 4f 4d 53 50 45 43 22 |getenv("|COMSPEC"|
|000003c0| 29 2c 20 31 2c 20 32 29 | 29 2c ff 01 00 7f ff 01 |), 1, 2)|),......|
|000003d0| 00 7f 3b 20 73 61 76 65 | 20 6f 72 69 67 69 6e 61 |..; save| origina|
|000003e0| 6c 20 73 65 6c 65 63 74 | 69 6f 6e ff 01 00 7f 40 |l select|ion....@|
|000003f0| 6c 6f 63 61 6c 28 6f 72 | 69 67 69 6e 61 6c 5f 73 |local(or|iginal_s|
|00000400| 65 6c 65 63 74 69 6f 6e | 29 2c ff 01 00 7f 6f 72 |election|),....or|
|00000410| 69 67 69 6e 61 6c 5f 73 | 65 6c 65 63 74 69 6f 6e |iginal_s|election|
|00000420| 20 3a 3d 20 40 73 65 74 | 73 65 6c 65 63 74 69 6f | := @set|selectio|
|00000430| 6e 28 22 55 54 49 4c 22 | 29 2c ff 01 00 7f ff 01 |n("UTIL"|),......|
|00000440| 00 7f 3b 20 70 72 6f 74 | 65 63 74 20 66 72 6f 6d |..; prot|ect from|
|00000450| 20 52 45 43 41 4c 43 21 | ff 01 00 7f 40 70 65 72 | RECALC!|....@per|
|00000460| 66 6f 72 6d 6b 65 79 73 | 28 22 7b 73 63 72 6f 6c |formkeys|("{scrol|
|00000470| 6c 2d 6c 6f 63 6b 7d 22 | 29 2c ff 01 00 7f 40 69 |l-lock}"|),....@i|
|00000480| 66 28 40 73 65 74 73 65 | 6c 65 63 74 69 6f 6e 20 |f(@setse|lection |
|00000490| 3d 20 22 55 54 49 4c 22 | 2c ff 01 00 7f 09 40 6c |= "UTIL"|,.....@l|
|000004a0| 69 73 74 28 ff 01 00 7f | 09 09 40 65 63 68 6f 28 |ist(....|..@echo(|
|000004b0| 23 6f 6e 29 2c ff 01 00 | 7f 09 09 40 70 72 6f 6d |#on),...|...@prom|
|000004c0| 70 74 28 22 20 20 54 65 | 6c 65 63 6f 6d 6d 75 6e |pt("  Te|lecommun|
|000004d0| 69 63 61 74 69 6f 6e 73 | 20 69 73 20 6f 6e 6c 79 |ications| is only|
|000004e0| 20 61 76 61 69 6c 61 62 | 6c 65 20 66 72 6f 6d 20 | availab|le from |
|000004f0| 74 68 65 20 44 69 73 6b | 20 6d 65 6e 75 22 29 2c |the Disk| menu"),|
|00000500| ff 01 00 7f 09 09 40 72 | 65 74 75 72 6e 28 30 29 |......@r|eturn(0)|
|00000510| 29 29 2c ff 01 00 7f ff | 01 00 7f 40 55 54 49 4c |)),.....|...@UTIL|
|00000520| 2e 4d 61 69 6e 2c ff 01 | 00 7f ff 01 00 7f 3b 20 |.Main,..|......; |
|00000530| 65 78 69 74 ff 01 00 7f | 40 69 73 65 72 72 28 40 |exit....|@iserr(@|
|00000540| 73 65 74 73 65 6c 65 63 | 74 69 6f 6e 28 6f 72 69 |setselec|tion(ori|
|00000550| 67 69 6e 61 6c 5f 73 65 | 6c 65 63 74 69 6f 6e 29 |ginal_se|lection)|
|00000560| 29 2c ff 01 00 7f 40 65 | 63 68 6f 28 23 6f 6e 29 |),....@e|cho(#on)|
|00000570| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000580| 03 00 aa 00 18 80 00 00 | 00 01 00 00 02 00 04 00 |........|........|
|00000590| 3f 01 48 01 34 00 00 00 | 58 00 a2 00 5e 00 01 00 |?.H.4...|X...^...|
|000005a0| 02 00 05 00 0d 01 23 54 | 52 55 45 00 ff ff ff ff |......#T|RUE.....|
|000005b0| 04 00 ac 00 02 00 07 40 | 01 00 01 00 13 00 01 00 |.......@|........|
|000005c0| 1e 00 04 00 30 00 04 00 | 1d 00 03 00 36 00 14 00 |....0...|....6...|
|000005d0| 1d 00 03 00 31 00 05 00 | 20 00 03 00 5c 00 00 00 |....1...| ...\...|
|000005e0| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 ee 01 |........|A....A..|
|000005f0| 02 00 ae 00 18 82 00 00 | 00 01 00 00 02 00 04 00 |........|........|
|00000600| 4d 61 69 6e 00 ff ff ff | ff ff ff ff ff ff ff ff |Main....|........|
|00000610| 2c 00 b0 00 18 82 00 00 | 00 01 00 00 02 00 70 02 |,.......|......p.|
|00000620| 3b 20 4d 61 69 6e ff 01 | 00 50 ff 01 00 50 3b 20 |; Main..|.P...P; |
|00000630| 72 65 73 65 74 20 74 65 | 6d 70 6f 72 61 72 79 20 |reset te|mporary |
|00000640| 66 69 6c 65 20 66 6c 61 | 67 ff 01 00 50 55 54 49 |file fla|g...PUTI|
|00000650| 4c 2e 50 72 65 70 61 72 | 65 5f 66 6c 61 67 20 3a |L.Prepar|e_flag :|
|00000660| 3d 20 23 66 61 6c 73 65 | 2c ff 01 00 50 ff 01 00 |= #false|,...P...|
|00000670| 50 3b 20 6d 61 69 6e 20 | 6d 65 6e 75 ff 01 00 50 |P; main |menu...P|
|00000680| 40 73 65 74 28 53 74 61 | 79 5f 69 6e 2c 20 23 74 |@set(Sta|y_in, #t|
|00000690| 72 75 65 29 2c ff 01 00 | 50 40 77 68 69 6c 65 28 |rue),...|P@while(|
|000006a0| 53 74 61 79 5f 69 6e 2c | ff 01 00 50 09 40 73 65 |Stay_in,|...P.@se|
|000006b0| 74 28 53 74 61 79 5f 69 | 6e 2c 20 23 66 61 6c 73 |t(Stay_i|n, #fals|
|000006c0| 65 29 2c ff 01 00 50 09 | 40 55 54 49 4c 2e 4c 6f |e),...P.|@UTIL.Lo|
|000006d0| 61 64 5f 6d 65 6e 75 2c | ff 01 00 50 09 40 6d 65 |ad_menu,|...P.@me|
|000006e0| 6e 75 28 54 65 6c 65 63 | 6f 6d 6d 75 6e 69 63 61 |nu(Telec|ommunica|
|000006f0| 74 69 6f 6e 73 29 2c ff | 01 00 50 09 40 55 54 49 |tions),.|..P.@UTI|
|00000700| 4c 2e 44 65 6c 65 74 65 | 5f 6d 65 6e 75 29 2c ff |L.Delete|_menu),.|
|00000710| 01 00 50 ff 01 00 50 3b | 20 72 65 6d 6f 76 65 20 |..P...P;| remove |
|00000720| 74 65 6d 70 6f 72 61 72 | 79 20 66 69 6c 65 73 ff |temporar|y files.|
|00000730| 01 00 50 40 69 66 28 55 | 54 49 4c 2e 50 72 65 70 |..P@if(U|TIL.Prep|
|00000740| 61 72 65 5f 66 6c 61 67 | 2c ff 01 00 50 09 40 6c |are_flag|,...P.@l|
|00000750| 69 73 74 28 ff 01 00 50 | 09 09 40 6c 6f 63 61 6c |ist(...P|..@local|
|00000760| 28 66 69 6c 65 5f 6e 61 | 6d 65 29 2c ff 01 00 50 |(file_na|me),...P|
|00000770| 09 09 40 70 65 72 66 6f | 72 6d 6b 65 79 73 28 22 |..@perfo|rmkeys("|
|00000780| 7b 63 74 72 6c 2d 64 7d | 63 22 29 2c ff 01 00 50 |{ctrl-d}|c"),...P|
|00000790| 09 09 40 73 65 74 73 65 | 6c 65 63 74 69 6f 6e 28 |..@setse|lection(|
|000007a0| 40 73 65 74 64 72 69 76 | 65 29 2c ff 01 00 50 09 |@setdriv|e),...P.|
|000007b0| 09 40 70 65 72 66 6f 72 | 6d 6b 65 79 73 28 22 7b |.@perfor|mkeys("{|
|000007c0| 64 6e 6c 65 76 65 6c 7d | 7b 63 74 72 6c 2d 6c 7d |dnlevel}|{ctrl-l}|
|000007d0| 73 2e 46 24 3f 7b 72 65 | 74 75 72 6e 7d 7b 65 73 |s.F$?{re|turn}{es|
|000007e0| 63 7d 22 29 2c ff 01 00 | 50 09 09 66 69 6c 65 5f |c}"),...|P..file_|
|000007f0| 6e 61 6d 65 20 3a 3d 20 | 40 73 65 74 73 65 6c 65 |name := |@setsele|
|00000800| 63 74 69 6f 6e 2c ff 01 | 00 50 09 09 40 77 68 69 |ction,..|.P..@whi|
|00000810| 6c 65 28 40 61 6e 64 28 | 40 6c 65 6e 28 66 69 6c |le(@and(|@len(fil|
|00000820| 65 5f 6e 61 6d 65 29 20 | 3e 3d 20 36 2c ff 01 00 |e_name) |>= 6,...|
|00000830| 50 09 09 09 09 09 40 6d | 69 64 28 66 69 6c 65 5f |P.....@m|id(file_|
|00000840| 6e 61 6d 65 2c 20 40 6c | 65 6e 28 66 69 6c 65 5f |name, @l|en(file_|
|00000850| 6e 61 6d 65 29 20 2d 20 | 33 2c 20 33 29 20 3d 20 |name) - |3, 3) = |
|00000860| 22 2e 46 24 22 29 2c ff | 01 00 50 09 09 09 40 70 |".F$"),.|..P...@p|
|00000870| 65 72 66 6f 72 6d 6b 65 | 79 73 28 22 7b 64 65 6c |erformke|ys("{del|
|00000880| 7d 79 7b 63 74 72 6c 2d | 6c 7d 7b 69 6e 73 7d 7b |}y{ctrl-|l}{ins}{|
|00000890| 69 6e 73 7d 7b 65 73 63 | 7d 22 29 2c ff 01 00 50 |ins}{esc|}"),...P|
|000008a0| 09 09 09 66 69 6c 65 5f | 6e 61 6d 65 20 3a 3d 20 |...file_|name := |
|000008b0| 40 73 65 74 73 65 6c 65 | 63 74 69 6f 6e 29 29 29 |@setsele|ction)))|
|000008c0| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000008d0| 03 00 b2 00 18 80 00 00 | 00 01 00 00 02 01 18 00 |........|........|
|000008e0| be 02 c4 02 be 02 00 00 | 8d 00 a2 00 93 00 01 00 |........|........|
|000008f0| 02 00 09 00 0d 01 23 46 | 55 4e 43 54 49 4f 4e 00 |......#F|UNCTION.|
|00000900| 04 00 b4 00 02 00 07 40 | 01 00 04 00 12 00 04 00 |.......@|........|
|00000910| 1e 00 07 00 2f 00 07 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00000920| 1d 00 06 00 30 00 08 00 | 20 00 04 00 91 00 00 00 |....0...| .......|
|00000930| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 02 02 |........|A....A..|
|00000940| 02 00 b6 00 18 82 00 00 | 00 01 00 00 02 00 04 00 |........|........|
|00000950| 4d 49 54 45 00 ff ff ff | ff ff ff ff ff ff ff ff |MITE....|........|
|00000960| 3f 00 b8 00 18 82 00 00 | 00 01 00 00 02 00 83 03 |?.......|........|
|00000970| 3b 20 4d 49 54 45 ff 01 | 00 7f 3b 20 40 49 74 65 |; MITE..|..; @Ite|
|00000980| 6d 31 20 69 73 20 74 68 | 65 20 70 61 72 61 6d 65 |m1 is th|e parame|
|00000990| 74 65 72 20 66 69 6c 65 | ff 01 00 ff ff 01 00 ff |ter file|........|
|000009a0| 40 6c 6f 63 61 6c 28 6f | 75 74 70 75 74 2c 20 65 |@local(o|utput, e|
|000009b0| 63 68 6f 2c 20 63 6f 6d | 6d 61 6e 64 2c 20 65 72 |cho, com|mand, er|
|000009c0| 72 6f 72 5f 63 6f 64 65 | 2c 20 64 72 69 76 65 2c |ror_code|, drive,|
|000009d0| 20 64 65 73 6b 74 6f 70 | 5f 73 61 76 65 64 29 2c | desktop|_saved),|
|000009e0| ff 01 00 ff ff 01 00 ff | 63 6f 6d 6d 61 6e 64 20 |........|command |
|000009f0| 3a 3d 20 53 79 73 74 65 | 6d 5f 64 72 69 76 65 20 |:= Syste|m_drive |
|00000a00| 26 20 22 4d 49 54 45 2e | 45 58 45 20 22 20 26 20 |& "MITE.|EXE " & |
|00000a10| 53 79 73 74 65 6d 5f 64 | 72 69 76 65 20 26 20 40 |System_d|rive & @|
|00000a20| 69 74 65 6d 31 2c ff 01 | 00 ff ff 01 00 ff 3b 20 |item1,..|......; |
|00000a30| 73 61 76 65 20 64 65 73 | 6b 74 6f 70 20 69 66 66 |save des|ktop iff|
|00000a40| 20 6e 65 63 65 73 73 61 | 72 79 ff 01 00 ff 64 65 | necessa|ry....de|
|00000a50| 73 6b 74 6f 70 5f 73 61 | 76 65 64 20 3a 3d 20 40 |sktop_sa|ved := @|
|00000a60| 55 54 49 4c 2e 53 61 76 | 65 5f 64 65 73 6b 74 6f |UTIL.Sav|e_deskto|
|00000a70| 70 2c ff 01 00 ff ff 01 | 00 ff 3b 20 73 61 76 65 |p,......|..; save|
|00000a80| 20 64 65 66 61 75 6c 74 | ff 01 00 ff 64 72 69 76 | default|....driv|
|00000a90| 65 20 3a 3d 20 40 73 65 | 74 64 72 69 76 65 2c ff |e := @se|tdrive,.|
|00000aa0| 01 00 ff ff 01 00 ff 3b | 20 72 75 6e 20 4d 49 54 |.......;| run MIT|
|00000ab0| 45 ff 01 00 ff 40 69 73 | 61 62 65 6e 64 28 23 66 |E....@is|abend(#f|
|00000ac0| 61 6c 73 65 29 2c ff 01 | 00 ff 65 72 72 6f 72 5f |alse),..|..error_|
|00000ad0| 63 6f 64 65 20 3a 3d 20 | 40 72 75 6e 28 6f 75 74 |code := |@run(out|
|00000ae0| 70 75 74 2c 20 63 6f 6d | 6d 61 6e 64 29 2c ff 01 |put, com|mand),..|
|00000af0| 00 ff ff 01 00 ff 3b 20 | 72 65 73 74 6f 72 65 20 |......; |restore |
|00000b00| 64 65 66 61 75 6c 74 ff | 01 00 ff 40 73 65 74 64 |default.|...@setd|
|00000b10| 72 69 76 65 28 64 72 69 | 76 65 29 2c ff 01 00 ff |rive(dri|ve),....|
|00000b20| ff 01 00 ff 40 69 66 28 | 40 6f 72 28 65 72 72 6f |....@if(|@or(erro|
|00000b30| 72 5f 63 6f 64 65 20 3c | 3e 20 30 2c 20 40 69 73 |r_code <|> 0, @is|
|00000b40| 61 62 65 6e 64 29 2c ff | 01 00 ff ff 01 00 ff 09 |abend),.|........|
|00000b50| 40 6c 69 73 74 28 ff 01 | 00 ff 09 09 65 63 68 6f |@list(..|....echo|
|00000b60| 20 3a 3d 20 40 65 63 68 | 6f 28 23 6f 6e 29 2c ff | := @ech|o(#on),.|
|00000b70| 01 00 ff 09 09 40 62 65 | 65 70 2c ff 01 00 ff 09 |.....@be|ep,.....|
|00000b80| 09 40 65 72 61 73 65 70 | 72 6f 6d 70 74 2c ff 01 |.@erasep|rompt,..|
|00000b90| 00 ff 09 09 40 70 72 6f | 6d 70 74 28 22 44 4f 53 |....@pro|mpt("DOS|
|00000ba0| 20 65 72 72 6f 72 20 72 | 65 74 75 72 6e 20 63 6f | error r|eturn co|
|00000bb0| 64 65 20 22 20 26 20 40 | 69 6e 74 65 67 65 72 28 |de " & @|integer(|
|00000bc0| 65 72 72 6f 72 5f 63 6f | 64 65 29 20 26 20 22 20 |error_co|de) & " |
|00000bd0| 66 6f 72 20 22 20 26 ff | 01 00 ff 09 09 09 09 63 |for " &.|.......c|
|00000be0| 6f 6d 6d 61 6e 64 20 26 | 20 22 2e 2e 2e 3c 74 79 |ommand &| "...<ty|
|00000bf0| 70 65 20 73 70 61 63 65 | 3e 22 29 2c ff 01 00 ff |pe space|>"),....|
|00000c00| 09 09 40 6e 65 78 74 6b | 65 79 2c ff 01 00 ff 09 |..@nextk|ey,.....|
|00000c10| 09 40 65 63 68 6f 28 65 | 63 68 6f 29 29 2c ff 01 |.@echo(e|cho)),..|
|00000c20| 00 ff ff 01 00 ff 09 3b | 20 72 75 6e 20 74 68 65 |.......;| run the|
|00000c30| 20 64 65 6d 6f 3f ff 01 | 00 ff 09 40 69 66 28 40 | demo?..|...@if(@|
|00000c40| 61 6e 64 28 40 6c 65 6e | 28 40 69 74 65 6d 31 29 |and(@len|(@item1)|
|00000c50| 20 3e 3d 20 36 2c 09 40 | 6d 69 64 28 40 69 74 65 | >= 6,.@|mid(@ite|
|00000c60| 6d 31 2c 20 31 2c 20 36 | 29 20 3d 20 22 44 4a 44 |m1, 1, 6|) = "DJD|
|00000c70| 45 4d 4f 22 29 2c ff 01 | 00 ff 09 09 40 55 54 49 |EMO"),..|....@UTI|
|00000c80| 4c 2e 44 4a 44 45 4d 4f | 2e 6d 61 69 6e 29 29 2c |L.DJDEMO|.main)),|
|00000c90| ff 01 00 ff ff 01 00 ff | 40 55 54 49 4c 2e 52 65 |........|@UTIL.Re|
|00000ca0| 73 74 6f 72 65 5f 64 65 | 73 6b 74 6f 70 28 64 65 |store_de|sktop(de|
|00000cb0| 73 6b 74 6f 70 5f 73 61 | 76 65 64 29 2c ff 01 00 |sktop_sa|ved),...|
|00000cc0| ff ff 01 00 ff 3b 20 72 | 65 73 65 74 20 70 72 65 |.....; r|eset pre|
|00000cd0| 70 61 72 65 20 68 65 6c | 70 ff 01 00 ff 54 65 6c |pare hel|p....Tel|
|00000ce0| 65 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 73 2e |ecommuni|cations.|
|00000cf0| 50 72 65 70 61 72 65 20 | 46 72 61 6d 65 20 74 6f |Prepare |Frame to|
|00000d00| 20 53 65 6e 64 20 3a 3d | ff 01 00 ff 09 50 72 65 | Send :=|.....Pre|
|00000d10| 64 65 66 69 6e 65 64 5f | 6d 65 6e 75 2e 50 72 65 |defined_|menu.Pre|
|00000d20| 70 61 72 65 20 46 72 61 | 6d 65 20 74 6f 20 53 65 |pare Fra|me to Se|
|00000d30| 6e 64 2c ff 01 00 ff ff | 01 00 ff 40 72 65 74 75 |nd,.....|...@retu|
|00000d40| 72 6e 28 30 00 80 29 00 | ff ff ff ff ff ff ff ff |rn(0..).|........|
|00000d50| 03 00 ba 00 18 80 00 00 | 00 01 00 00 02 01 0a 00 |........|........|
|00000d60| 13 55 0c 05 00 f0 0c 05 | d5 00 a2 00 db 00 01 00 |.U......|........|
|00000d70| 06 00 05 00 0d 01 23 54 | 52 55 45 00 ff ff ff ff |......#T|RUE.....|
|00000d80| 04 00 bc 00 02 00 05 40 | 01 00 07 00 12 00 07 00 |.......@|........|
|00000d90| 1e 00 0a 00 2f 00 0a 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00000da0| 1d 00 09 00 2f 00 0a 00 | 20 00 05 00 d9 00 00 00 |..../...| .......|
|00000db0| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 fe 01 |........|A....A..|
|00000dc0| 02 00 be 00 18 82 00 00 | 00 01 00 00 02 00 09 00 |........|........|
|00000dd0| 4c 6f 61 64 5f 6d 65 6e | 75 00 ff ff ff ff ff ff |Load_men|u.......|
|00000de0| 34 00 c0 00 18 82 00 00 | 00 01 00 00 02 00 f9 02 |4.......|........|
|00000df0| 3b 20 4c 6f 61 64 5f 6d | 65 6e 75 ff 01 00 ff ff |; Load_m|enu.....|
|00000e00| 01 00 ff 3b 20 6c 6f 61 | 64 20 46 57 54 43 4d 45 |...; loa|d FWTCME|
|00000e10| 4e 55 ff 01 00 ff 40 73 | 65 74 73 65 6c 65 63 74 |NU....@s|etselect|
|00000e20| 69 6f 6e 28 22 55 54 49 | 4c 22 29 2c ff 01 00 ff |ion("UTI|L"),....|
|00000e30| 40 70 65 72 66 6f 72 6d | 6b 65 79 73 28 22 7b 63 |@perform|keys("{c|
|00000e40| 74 72 6c 2d 64 7d 67 22 | 20 26 20 53 79 73 74 65 |trl-d}g"| & Syste|
|00000e50| 6d 5f 64 72 69 76 65 20 | 26 20 22 46 57 54 43 4d |m_drive |& "FWTCM|
|00000e60| 45 4e 55 2e 46 57 7b 72 | 65 74 75 72 6e 7d 22 29 |ENU.FW{r|eturn}")|
|00000e70| 2c ff 01 00 ff 40 69 66 | 28 40 73 65 74 73 65 6c |,....@if|(@setsel|
|00000e80| 65 63 74 69 6f 6e 20 3c | 3e 20 22 46 57 54 43 4d |ection <|> "FWTCM|
|00000e90| 45 4e 55 22 2c ff 01 00 | ff 09 3b 20 6e 6f 74 20 |ENU",...|..; not |
|00000ea0| 66 6f 75 6e 64 2c 20 63 | 72 65 61 74 65 20 69 74 |found, c|reate it|
|00000eb0| ff 01 00 ff 09 40 70 65 | 72 66 6f 72 6d 6b 65 79 |.....@pe|rformkey|
|00000ec0| 73 28 22 7b 63 74 72 6c | 2d 63 7d 65 46 57 54 43 |s("{ctrl|-c}eFWTC|
|00000ed0| 4d 45 4e 55 7b 72 65 74 | 75 72 6e 7d 7b 64 6e 6c |MENU{ret|urn}{dnl|
|00000ee0| 65 76 65 6c 7d 22 20 26 | ff 01 00 ff 09 09 22 7b |evel}" &|......"{|
|00000ef0| 63 74 72 6c 2d 63 7d 65 | 3c 22 20 26 20 53 79 73 |ctrl-c}e|<" & Sys|
|00000f00| 74 65 6d 5f 64 72 69 76 | 65 20 26 20 22 46 57 54 |tem_driv|e & "FWT|
|00000f10| 43 4d 45 4e 55 2e 46 57 | 20 6e 6f 74 20 66 6f 75 |CMENU.FW| not fou|
|00000f20| 6e 64 3e 7b 72 65 74 75 | 72 6e 7d 22 29 29 2c ff |nd>{retu|rn}")),.|
|00000f30| 01 00 ff ff 01 00 ff 3b | 20 67 65 74 20 70 72 65 |.......;| get pre|
|00000f40| 64 65 66 69 6e 65 64 20 | 6d 65 6e 75 20 69 74 65 |defined |menu ite|
|00000f50| 6d 73 ff 01 00 ff 40 73 | 65 74 73 65 6c 65 63 74 |ms....@s|etselect|
|00000f60| 69 6f 6e 28 22 55 54 49 | 4c 2e 50 72 65 64 65 66 |ion("UTI|L.Predef|
|00000f70| 69 6e 65 64 5f 6d 65 6e | 75 2e 50 72 65 70 61 72 |ined_men|u.Prepar|
|00000f80| 65 20 46 72 61 6d 65 20 | 74 6f 20 53 65 6e 64 22 |e Frame |to Send"|
|00000f90| 29 2c ff 01 00 ff 40 70 | 65 72 66 6f 72 6d 6b 65 |),....@p|erformke|
|00000fa0| 79 73 28 22 7b 66 36 7d | 7b 65 6e 64 7d 7b 66 38 |ys("{f6}|{end}{f8|
|00000fb0| 7d 22 29 2c ff 01 00 ff | 40 73 65 74 73 65 6c 65 |}"),....|@setsele|
|00000fc0| 63 74 69 6f 6e 28 22 46 | 57 54 43 4d 45 4e 55 22 |ction("F|WTCMENU"|
|00000fd0| 29 2c ff 01 00 ff 40 70 | 65 72 66 6f 72 6d 6b 65 |),....@p|erformke|
|00000fe0| 79 73 28 22 7b 64 6e 6c | 65 76 65 6c 7d 7b 65 6e |ys("{dnl|evel}{en|
|00000ff0| 64 7d 7b 72 65 74 75 72 | 6e 7d 22 29 2c ff 01 00 |d}{retur|n}"),...|
|00001000| ff 40 70 65 72 66 6f 72 | 6d 6b 65 79 73 28 22 7b |.@perfor|mkeys("{|
|00001010| 75 70 61 72 72 6f 77 7d | 7b 66 36 7d 7b 68 6f 6d |uparrow}|{f6}{hom|
|00001020| 65 7d 7b 66 37 7d 7b 64 | 6e 61 72 72 6f 77 7d 7b |e}{f7}{d|narrow}{|
|00001030| 72 65 74 75 72 6e 7d 7b | 68 6f 6d 65 7d 22 29 2c |return}{|home}"),|
|00001040| ff 01 00 ff ff 01 00 ff | 3b 20 72 65 6e 61 6d 65 |........|; rename|
|00001050| 20 61 6e 64 20 63 6c 6f | 73 65 20 54 65 6c 65 63 | and clo|se Telec|
|00001060| 6f 6d 6d 75 6e 69 63 61 | 74 69 6f 6e 20 66 72 61 |ommunica|tion fra|
|00001070| 6d 65 73 ff 01 00 ff 40 | 70 65 72 66 6f 72 6d 6b |mes....@|performk|
|00001080| 65 79 73 28 22 7b 63 74 | 72 6c 2d 75 70 6c 65 76 |eys("{ct|rl-uplev|
|00001090| 65 6c 7d 7b 66 31 30 7d | 54 65 6c 65 63 6f 6d 6d |el}{f10}|Telecomm|
|000010a0| 75 6e 69 63 61 74 69 6f | 6e 73 7b 72 65 74 75 72 |unicatio|ns{retur|
|000010b0| 6e 7d 7b 72 65 74 75 72 | 6e 7d 22 29 2c ff 01 00 |n}{retur|n}"),...|
|000010c0| ff 40 68 69 64 65 28 54 | 65 6c 65 63 6f 6d 6d 75 |.@hide(T|elecommu|
|000010d0| 6e 69 63 61 74 69 6f 6e | 73 29 2c ff 01 00 ff ff |nication|s),.....|
|000010e0| 01 00 ff 40 73 65 74 73 | 65 6c 65 63 74 69 6f 6e |...@sets|election|
|000010f0| 28 22 55 54 49 4c 22 29 | 2c ff 01 00 ff 40 70 65 |("UTIL")|,....@pe|
|00001100| 72 66 6f 72 6d 6b 65 79 | 73 28 22 7b 72 65 74 75 |rformkey|s("{retu|
|00001110| 72 6e 7d 22 00 80 29 00 | ff ff ff ff ff ff ff ff |rn}"..).|........|
|00001120| 03 00 c2 00 18 80 00 00 | 00 01 00 00 02 01 18 00 |........|........|
|00001130| 3a 02 49 02 3a 02 00 00 | 12 01 a2 00 18 01 01 00 |:.I.:...|........|
|00001140| 0a 00 09 00 0d 01 23 46 | 55 4e 43 54 49 4f 4e 00 |......#F|UNCTION.|
|00001150| 04 00 c4 00 02 00 07 40 | 01 00 09 00 12 00 09 00 |.......@|........|
|00001160| 1e 00 0c 00 2f 00 0c 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00001170| 1d 00 0b 00 30 00 0d 00 | 20 00 06 00 16 01 00 00 |....0...| .......|
|00001180| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 0e 02 |........|A....A..|
|00001190| 02 00 c6 00 18 82 00 00 | 00 01 00 00 02 00 08 00 |........|........|
|000011a0| 57 6f 72 64 53 74 61 72 | 00 ff ff ff ff ff ff ff |WordStar|........|
|000011b0| 46 00 c8 00 18 82 00 00 | 00 01 00 00 02 00 e8 03 |F.......|........|
|000011c0| 3b 20 57 6f 72 64 53 74 | 61 72 ff 01 00 7f 3b 20 |; WordSt|ar....; |
|000011d0| 40 49 74 65 6d 31 20 69 | 73 20 74 68 65 20 70 61 |@Item1 i|s the pa|
|000011e0| 72 61 6d 65 74 65 72 20 | 66 69 6c 65 ff 01 00 ff |rameter |file....|
|000011f0| ff 01 00 ff 40 6c 6f 63 | 61 6c 28 6f 75 74 70 75 |....@loc|al(outpu|
|00001200| 74 2c 20 65 63 68 6f 2c | 20 63 6f 6d 6d 61 6e 64 |t, echo,| command|
|00001210| 2c 20 65 72 72 6f 72 5f | 63 6f 64 65 2c 20 64 72 |, error_|code, dr|
|00001220| 69 76 65 2c 20 64 65 73 | 6b 74 6f 70 5f 73 61 76 |ive, des|ktop_sav|
|00001230| 65 64 29 2c ff 01 00 ff | ff 01 00 ff ff 01 00 ff |ed),....|........|
|00001240| 3b ff 01 00 ff 00 01 3b | 20 54 6f 20 72 75 6e 20 |;......;| To run |
|00001250| 79 6f 75 72 20 65 78 74 | 65 72 6e 61 6c 20 70 72 |your ext|ernal pr|
|00001260| 6f 67 72 61 6d 20 2d 20 | 70 75 74 20 69 74 73 20 |ogram - |put its |
|00001270| 6e 61 6d 65 20 69 6e 20 | 74 68 65 20 62 65 6c 6f |name in |the belo|
|00001280| 77 20 63 6f 6d 6d 61 6e | 64 ff 01 00 ff 3b 20 6c |w comman|d....; l|
|00001290| 69 6e 65 20 69 6e 20 70 | 6c 61 63 65 20 6f 66 20 |ine in p|lace of |
|000012a0| 22 57 53 2e 43 4f 4d 22 | 20 20 ff 01 00 ff 00 00 |"WS.COM"|  ......|
|000012b0| 63 6f 6d 6d 61 6e 64 20 | 3a 3d 20 53 79 73 74 65 |command |:= Syste|
|000012c0| 6d 5f 64 72 69 76 65 20 | 26 20 22 57 53 2e 43 4f |m_drive |& "WS.CO|
|000012d0| 4d 22 2c ff 01 00 ff ff | 01 00 ff 3b 20 73 61 76 |M",.....|...; sav|
|000012e0| 65 20 64 65 73 6b 74 6f | 70 20 69 66 66 20 6e 65 |e deskto|p iff ne|
|000012f0| 63 65 73 73 61 72 79 ff | 01 00 ff 64 65 73 6b 74 |cessary.|...deskt|
|00001300| 6f 70 5f 73 61 76 65 64 | 20 3a 3d 20 40 55 54 49 |op_saved| := @UTI|
|00001310| 4c 2e 53 61 76 65 5f 64 | 65 73 6b 74 6f 70 2c ff |L.Save_d|esktop,.|
|00001320| 01 00 ff ff 01 00 ff 3b | 20 73 61 76 65 20 64 65 |.......;| save de|
|00001330| 66 61 75 6c 74 ff 01 00 | ff 64 72 69 76 65 20 3a |fault...|.drive :|
|00001340| 3d 20 40 73 65 74 64 72 | 69 76 65 2c ff 01 00 ff |= @setdr|ive,....|
|00001350| ff 01 00 ff 3b 20 72 75 | 6e 20 57 4f 52 44 53 54 |....; ru|n WORDST|
|00001360| 41 52 ff 01 00 ff 40 69 | 73 61 62 65 6e 64 28 23 |AR....@i|sabend(#|
|00001370| 66 61 6c 73 65 29 2c ff | 01 00 ff 65 72 72 6f 72 |false),.|...error|
|00001380| 5f 63 6f 64 65 20 3a 3d | 20 40 72 75 6e 28 6f 75 |_code :=| @run(ou|
|00001390| 74 70 75 74 2c 20 63 6f | 6d 6d 61 6e 64 29 2c ff |tput, co|mmand),.|
|000013a0| 01 00 ff ff 01 00 ff 3b | 20 72 65 73 74 6f 72 65 |.......;| restore|
|000013b0| 20 64 65 66 61 75 6c 74 | ff 01 00 ff 40 73 65 74 | default|....@set|
|000013c0| 64 72 69 76 65 28 64 72 | 69 76 65 29 2c ff 01 00 |drive(dr|ive),...|
|000013d0| ff ff 01 00 ff 40 69 66 | 28 40 61 6e 64 28 65 72 |.....@if|(@and(er|
|000013e0| 72 6f 72 5f 63 6f 64 65 | 20 3c 3e 20 30 2c 20 65 |ror_code| <> 0, e|
|000013f0| 72 72 6f 72 5f 63 6f 64 | 65 20 3c 3e 20 32 29 2c |rror_cod|e <> 2),|
|00001400| ff 01 00 ff ff 01 00 ff | 09 40 6c 69 73 74 28 ff |........|.@list(.|
|00001410| 01 00 ff 09 09 65 63 68 | 6f 20 3a 3d 20 40 65 63 |.....ech|o := @ec|
|00001420| 68 6f 28 23 6f 6e 29 2c | ff 01 00 ff 09 09 40 62 |ho(#on),|......@b|
|00001430| 65 65 70 2c ff 01 00 ff | 09 09 40 65 72 61 73 65 |eep,....|..@erase|
|00001440| 70 72 6f 6d 70 74 2c ff | 01 00 ff 09 09 40 70 72 |prompt,.|.....@pr|
|00001450| 6f 6d 70 74 28 22 44 4f | 53 20 65 72 72 6f 72 20 |ompt("DO|S error |
|00001460| 72 65 74 75 72 6e 20 63 | 6f 64 65 20 22 20 26 20 |return c|ode " & |
|00001470| 40 69 6e 74 65 67 65 72 | 28 65 72 72 6f 72 5f 63 |@integer|(error_c|
|00001480| 6f 64 65 29 20 26 20 22 | 20 66 6f 72 20 22 20 26 |ode) & "| for " &|
|00001490| ff 01 00 ff 09 09 09 09 | 63 6f 6d 6d 61 6e 64 20 |........|command |
|000014a0| 26 20 22 2e 2e 2e 3c 74 | 79 70 65 20 73 70 61 63 |& "...<t|ype spac|
|000014b0| 65 3e 22 29 2c ff 01 00 | ff 09 09 40 6e 65 78 74 |e>"),...|...@next|
|000014c0| 6b 65 79 2c ff 01 00 ff | 09 09 40 65 63 68 6f 28 |key,....|..@echo(|
|000014d0| 65 63 68 6f 29 29 2c ff | 01 00 ff ff 01 00 ff 09 |echo)),.|........|
|000014e0| 3b 20 72 75 6e 20 74 68 | 65 20 64 65 6d 6f 3f ff |; run th|e demo?.|
|000014f0| 01 00 ff 3b 09 40 69 66 | 28 40 61 6e 64 28 40 6c |...;.@if|(@and(@l|
|00001500| 65 6e 28 40 69 74 65 6d | 31 29 20 3e 3d 20 36 2c |en(@item|1) >= 6,|
|00001510| 09 40 6d 69 64 28 40 69 | 74 65 6d 31 2c 20 31 2c |.@mid(@i|tem1, 1,|
|00001520| 20 36 29 20 3d 20 22 44 | 4a 44 45 4d 4f 22 29 2c | 6) = "D|JDEMO"),|
|00001530| ff 01 00 ff 3b 09 09 40 | 55 54 49 4c 2e 44 4a 44 |....;..@|UTIL.DJD|
|00001540| 45 4d 4f 2e 6d 61 69 6e | 29 29 2c ff 01 00 ff ff |EMO.main|)),.....|
|00001550| 01 00 ff 3b 20 20 20 40 | 55 54 49 4c 2e 52 65 73 |...;   @|UTIL.Res|
|00001560| 74 6f 72 65 5f 64 65 73 | 6b 74 6f 70 28 64 65 73 |tore_des|ktop(des|
|00001570| 6b 74 6f 70 5f 73 61 76 | 65 64 29 2c ff 01 00 ff |ktop_sav|ed),....|
|00001580| ff 01 00 ff 3b 20 72 65 | 73 65 74 20 70 72 65 70 |....; re|set prep|
|00001590| 61 72 65 20 68 65 6c 70 | ff 01 00 ff 3b 54 65 6c |are help|....;Tel|
|000015a0| 65 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 73 2e |ecommuni|cations.|
|000015b0| 50 72 65 70 61 72 65 20 | 46 72 61 6d 65 20 74 6f |Prepare |Frame to|
|000015c0| 20 53 65 6e 64 20 3a 3d | ff 01 00 ff 3b 09 50 72 | Send :=|....;.Pr|
|000015d0| 65 64 65 66 69 6e 65 64 | 5f 6d 65 6e 75 2e 50 72 |edefined|_menu.Pr|
|000015e0| 65 70 61 72 65 20 46 72 | 61 6d 65 20 74 6f 20 53 |epare Fr|ame to S|
|000015f0| 65 6e 64 2c ff 01 00 ff | ff 01 00 ff 40 72 65 74 |end,....|....@ret|
|00001600| 75 72 6e 28 30 00 80 29 | 00 ff ff ff ff ff ff ff |urn(0..)|........|
|00001610| 03 00 ca 00 18 80 00 00 | 00 01 00 00 02 0a 00 00 |........|........|
|00001620| 05 03 06 03 45 00 01 00 | 61 01 a2 00 67 01 01 00 |....E...|a...g...|
|00001630| 06 00 05 00 0d 01 23 4e | 2f 41 21 00 ff ff ff ff |......#N|/A!.....|
|00001640| 04 00 cc 00 02 00 07 40 | 01 00 0c 00 12 00 0c 00 |.......@|........|
|00001650| 1e 00 0f 00 2f 00 0f 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00001660| 1d 00 0e 00 30 00 10 00 | 20 00 07 00 65 01 00 00 |....0...| ...e...|
|00001670| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 94 01 |........|A....A..|
|00001680| 02 00 ce 00 18 82 00 00 | 00 01 00 00 02 00 04 00 |........|........|
|00001690| 53 43 4f 4d 00 ff ff ff | ff ff ff ff ff ff ff ff |SCOM....|........|
|000016a0| 3f 00 d0 00 18 82 00 00 | 00 01 00 00 02 00 83 03 |?.......|........|
|000016b0| 3b 20 53 6d 61 72 74 63 | 6f 6d 20 49 49 ff 01 00 |; Smartc|om II...|
|000016c0| 7f 3b 20 40 49 74 65 6d | 31 20 69 73 20 74 68 65 |.; @Item|1 is the|
|000016d0| 20 70 61 72 61 6d 65 74 | 65 72 20 66 69 6c 65 ff | paramet|er file.|
|000016e0| 01 00 ff ff 01 00 ff 40 | 6c 6f 63 61 6c 28 6f 75 |.......@|local(ou|
|000016f0| 74 70 75 74 2c 20 65 63 | 68 6f 2c 20 63 6f 6d 6d |tput, ec|ho, comm|
|00001700| 61 6e 64 2c 20 65 72 72 | 6f 72 5f 63 6f 64 65 2c |and, err|or_code,|
|00001710| 20 64 72 69 76 65 2c 20 | 64 65 73 6b 74 6f 70 5f | drive, |desktop_|
|00001720| 73 61 76 65 64 29 2c ff | 01 00 ff ff 01 00 ff 63 |saved),.|.......c|
|00001730| 6f 6d 6d 61 6e 64 20 3a | 3d 20 53 79 73 74 65 6d |ommand :|= System|
|00001740| 5f 64 72 69 76 65 20 26 | 20 22 53 43 4f 4d 2e 45 |_drive &| "SCOM.E|
|00001750| 58 45 22 2c ff 01 00 ff | ff 01 00 ff 3b 20 73 61 |XE",....|....; sa|
|00001760| 76 65 20 64 65 73 6b 74 | 6f 70 20 69 66 66 20 6e |ve deskt|op iff n|
|00001770| 65 63 65 73 73 61 72 79 | ff 01 00 ff 64 65 73 6b |ecessary|....desk|
|00001780| 74 6f 70 5f 73 61 76 65 | 64 20 3a 3d 20 40 55 54 |top_save|d := @UT|
|00001790| 49 4c 2e 53 61 76 65 5f | 64 65 73 6b 74 6f 70 2c |IL.Save_|desktop,|
|000017a0| ff 01 00 ff ff 01 00 ff | 3b 20 73 61 76 65 20 64 |........|; save d|
|000017b0| 65 66 61 75 6c 74 ff 01 | 00 ff 64 72 69 76 65 20 |efault..|..drive |
|000017c0| 3a 3d 20 40 73 65 74 64 | 72 69 76 65 2c ff 01 00 |:= @setd|rive,...|
|000017d0| ff ff 01 00 ff 3b 20 72 | 75 6e 20 53 6d 61 72 74 |.....; r|un Smart|
|000017e0| 43 6f 6d 49 49 ff 01 00 | ff 40 69 73 61 62 65 6e |ComII...|.@isaben|
|000017f0| 64 28 23 66 61 6c 73 65 | 29 2c ff 01 00 ff 65 72 |d(#false|),....er|
|00001800| 72 6f 72 5f 63 6f 64 65 | 20 3a 3d 20 40 72 75 6e |ror_code| := @run|
|00001810| 28 6f 75 74 70 75 74 2c | 20 63 6f 6d 6d 61 6e 64 |(output,| command|
|00001820| 29 2c ff 01 00 ff ff 01 | 00 ff 3b 20 72 65 73 74 |),......|..; rest|
|00001830| 6f 72 65 20 64 65 66 61 | 75 6c 74 ff 01 00 ff 40 |ore defa|ult....@|
|00001840| 73 65 74 64 72 69 76 65 | 28 64 72 69 76 65 29 2c |setdrive|(drive),|
|00001850| ff 01 00 ff ff 01 00 ff | 40 69 66 28 40 61 6e 64 |........|@if(@and|
|00001860| 28 65 72 72 6f 72 5f 63 | 6f 64 65 20 3c 3e 20 30 |(error_c|ode <> 0|
|00001870| 2c 20 65 72 72 6f 72 5f | 63 6f 64 65 20 3c 3e 20 |, error_|code <> |
|00001880| 32 29 2c ff 01 00 ff ff | 01 00 ff 09 40 6c 69 73 |2),.....|....@lis|
|00001890| 74 28 ff 01 00 ff 09 09 | 65 63 68 6f 20 3a 3d 20 |t(......|echo := |
|000018a0| 40 65 63 68 6f 28 23 6f | 6e 29 2c ff 01 00 ff 09 |@echo(#o|n),.....|
|000018b0| 09 40 62 65 65 70 2c ff | 01 00 ff 09 09 40 65 72 |.@beep,.|.....@er|
|000018c0| 61 73 65 70 72 6f 6d 70 | 74 2c ff 01 00 ff 09 09 |asepromp|t,......|
|000018d0| 40 70 72 6f 6d 70 74 28 | 22 44 4f 53 20 65 72 72 |@prompt(|"DOS err|
|000018e0| 6f 72 20 72 65 74 75 72 | 6e 20 63 6f 64 65 20 22 |or retur|n code "|
|000018f0| 20 26 20 40 69 6e 74 65 | 67 65 72 28 65 72 72 6f | & @inte|ger(erro|
|00001900| 72 5f 63 6f 64 65 29 20 | 26 20 22 20 66 6f 72 20 |r_code) |& " for |
|00001910| 22 20 26 ff 01 00 ff 09 | 09 09 09 63 6f 6d 6d 61 |" &.....|...comma|
|00001920| 6e 64 20 26 20 22 2e 2e | 2e 3c 74 79 70 65 20 73 |nd & "..|.<type s|
|00001930| 70 61 63 65 3e 22 29 2c | ff 01 00 ff 09 09 40 6e |pace>"),|......@n|
|00001940| 65 78 74 6b 65 79 2c ff | 01 00 ff 09 09 40 65 63 |extkey,.|.....@ec|
|00001950| 68 6f 28 65 63 68 6f 29 | 29 2c ff 01 00 ff ff 01 |ho(echo)|),......|
|00001960| 00 ff 09 3b 20 72 75 6e | 20 74 68 65 20 64 65 6d |...; run| the dem|
|00001970| 6f 3f ff 01 00 ff 3b 09 | 40 69 66 28 40 61 6e 64 |o?....;.|@if(@and|
|00001980| 28 40 6c 65 6e 28 40 69 | 74 65 6d 31 29 20 3e 3d |(@len(@i|tem1) >=|
|00001990| 20 36 2c 09 40 6d 69 64 | 28 40 69 74 65 6d 31 2c | 6,.@mid|(@item1,|
|000019a0| 20 31 2c 20 36 29 20 3d | 20 22 44 4a 44 45 4d 4f | 1, 6) =| "DJDEMO|
|000019b0| 22 29 2c ff 01 00 ff 3b | 09 09 40 55 54 49 4c 2e |"),....;|..@UTIL.|
|000019c0| 44 4a 44 45 4d 4f 2e 6d | 61 69 6e 29 29 2c ff 01 |DJDEMO.m|ain)),..|
|000019d0| 00 ff ff 01 00 ff 40 55 | 54 49 4c 2e 52 65 73 74 |......@U|TIL.Rest|
|000019e0| 6f 72 65 5f 64 65 73 6b | 74 6f 70 28 64 65 73 6b |ore_desk|top(desk|
|000019f0| 74 6f 70 5f 73 61 76 65 | 64 29 2c ff 01 00 ff ff |top_save|d),.....|
|00001a00| 01 00 ff 3b 20 72 65 73 | 65 74 20 70 72 65 70 61 |...; res|et prepa|
|00001a10| 72 65 20 68 65 6c 70 ff | 01 00 ff 3b 54 65 6c 65 |re help.|...;Tele|
|00001a20| 63 6f 6d 6d 75 6e 69 63 | 61 74 69 6f 6e 73 2e 50 |communic|ations.P|
|00001a30| 72 65 70 61 72 65 20 46 | 72 61 6d 65 20 74 6f 20 |repare F|rame to |
|00001a40| 53 65 6e 64 20 3a 3d ff | 01 00 ff 3b 09 50 72 65 |Send :=.|...;.Pre|
|00001a50| 64 65 66 69 6e 65 64 5f | 6d 65 6e 75 2e 50 72 65 |defined_|menu.Pre|
|00001a60| 70 61 72 65 20 46 72 61 | 6d 65 20 74 6f 20 53 65 |pare Fra|me to Se|
|00001a70| 6e 64 2c ff 01 00 ff ff | 01 00 ff 40 72 65 74 75 |nd,.....|...@retu|
|00001a80| 72 6e 28 30 00 80 29 00 | ff ff ff ff ff ff ff ff |rn(0..).|........|
|00001a90| 03 00 d2 00 18 80 00 00 | 00 01 00 00 02 0a 00 00 |........|........|
|00001aa0| 08 03 09 03 45 00 01 00 | a9 01 a2 00 af 01 01 00 |....E...|........|
|00001ab0| 06 00 05 00 0d 01 23 4e | 2f 41 21 00 ff ff ff ff |......#N|/A!.....|
|00001ac0| 04 00 d4 00 02 00 07 40 | 01 00 0f 00 12 00 0f 00 |.......@|........|
|00001ad0| 1e 00 12 00 2f 00 12 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00001ae0| 1d 00 11 00 30 00 13 00 | 20 00 08 00 ad 01 00 00 |....0...| .......|
|00001af0| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 a8 01 |........|A....A..|
|00001b00| 02 00 d6 00 18 82 00 00 | 00 01 00 00 02 00 06 00 |........|........|
|00001b10| 50 43 54 41 4c 4b 00 ff | ff ff ff ff ff ff ff ff |PCTALK..|........|
|00001b20| 3f 00 d8 00 18 82 00 00 | 00 01 00 00 02 00 86 03 |?.......|........|
|00001b30| 3b 20 50 43 2d 54 61 6c | 6b 20 49 49 49 ff 01 00 |; PC-Tal|k III...|
|00001b40| 7f 3b 20 40 49 74 65 6d | 31 20 69 73 20 74 68 65 |.; @Item|1 is the|
|00001b50| 20 70 61 72 61 6d 65 74 | 65 72 20 66 69 6c 65 ff | paramet|er file.|
|00001b60| 01 00 ff ff 01 00 ff 40 | 6c 6f 63 61 6c 28 6f 75 |.......@|local(ou|
|00001b70| 74 70 75 74 2c 20 65 63 | 68 6f 2c 20 63 6f 6d 6d |tput, ec|ho, comm|
|00001b80| 61 6e 64 2c 20 65 72 72 | 6f 72 5f 63 6f 64 65 2c |and, err|or_code,|
|00001b90| 20 64 72 69 76 65 2c 20 | 64 65 73 6b 74 6f 70 5f | drive, |desktop_|
|00001ba0| 73 61 76 65 64 29 2c ff | 01 00 ff ff 01 00 ff 63 |saved),.|.......c|
|00001bb0| 6f 6d 6d 61 6e 64 20 3a | 3d 20 53 79 73 74 65 6d |ommand :|= System|
|00001bc0| 5f 64 72 69 76 65 20 26 | 20 22 50 43 54 41 4c 4b |_drive &| "PCTALK|
|00001bd0| 2e 45 58 45 22 2c ff 01 | 00 ff ff 01 00 ff 3b 20 |.EXE",..|......; |
|00001be0| 73 61 76 65 20 64 65 73 | 6b 74 6f 70 20 69 66 66 |save des|ktop iff|
|00001bf0| 20 6e 65 63 65 73 73 61 | 72 79 ff 01 00 ff 64 65 | necessa|ry....de|
|00001c00| 73 6b 74 6f 70 5f 73 61 | 76 65 64 20 3a 3d 20 40 |sktop_sa|ved := @|
|00001c10| 55 54 49 4c 2e 53 61 76 | 65 5f 64 65 73 6b 74 6f |UTIL.Sav|e_deskto|
|00001c20| 70 2c ff 01 00 ff ff 01 | 00 ff 3b 20 73 61 76 65 |p,......|..; save|
|00001c30| 20 64 65 66 61 75 6c 74 | ff 01 00 ff 64 72 69 76 | default|....driv|
|00001c40| 65 20 3a 3d 20 40 73 65 | 74 64 72 69 76 65 2c ff |e := @se|tdrive,.|
|00001c50| 01 00 ff ff 01 00 ff 3b | 20 72 75 6e 20 50 43 20 |.......;| run PC |
|00001c60| 74 61 6c 6b 20 49 49 49 | ff 01 00 ff 40 69 73 61 |talk III|....@isa|
|00001c70| 62 65 6e 64 28 23 66 61 | 6c 73 65 29 2c ff 01 00 |bend(#fa|lse),...|
|00001c80| ff 65 72 72 6f 72 5f 63 | 6f 64 65 20 3a 3d 20 40 |.error_c|ode := @|
|00001c90| 72 75 6e 28 6f 75 74 70 | 75 74 2c 20 63 6f 6d 6d |run(outp|ut, comm|
|00001ca0| 61 6e 64 29 2c ff 01 00 | ff ff 01 00 ff 3b 20 72 |and),...|.....; r|
|00001cb0| 65 73 74 6f 72 65 20 64 | 65 66 61 75 6c 74 ff 01 |estore d|efault..|
|00001cc0| 00 ff 40 73 65 74 64 72 | 69 76 65 28 64 72 69 76 |..@setdr|ive(driv|
|00001cd0| 65 29 2c ff 01 00 ff ff | 01 00 ff 40 69 66 28 40 |e),.....|...@if(@|
|00001ce0| 61 6e 64 28 65 72 72 6f | 72 5f 63 6f 64 65 20 3c |and(erro|r_code <|
|00001cf0| 3e 20 30 2c 20 65 72 72 | 6f 72 5f 63 6f 64 65 20 |> 0, err|or_code |
|00001d00| 3c 3e 20 32 29 2c ff 01 | 00 ff ff 01 00 ff 09 40 |<> 2),..|.......@|
|00001d10| 6c 69 73 74 28 ff 01 00 | ff 09 09 65 63 68 6f 20 |list(...|...echo |
|00001d20| 3a 3d 20 40 65 63 68 6f | 28 23 6f 6e 29 2c ff 01 |:= @echo|(#on),..|
|00001d30| 00 ff 09 09 40 62 65 65 | 70 2c ff 01 00 ff 09 09 |....@bee|p,......|
|00001d40| 40 65 72 61 73 65 70 72 | 6f 6d 70 74 2c ff 01 00 |@erasepr|ompt,...|
|00001d50| ff 09 09 40 70 72 6f 6d | 70 74 28 22 44 4f 53 20 |...@prom|pt("DOS |
|00001d60| 65 72 72 6f 72 20 72 65 | 74 75 72 6e 20 63 6f 64 |error re|turn cod|
|00001d70| 65 20 22 20 26 20 40 69 | 6e 74 65 67 65 72 28 65 |e " & @i|nteger(e|
|00001d80| 72 72 6f 72 5f 63 6f 64 | 65 29 20 26 20 22 20 66 |rror_cod|e) & " f|
|00001d90| 6f 72 20 22 20 26 ff 01 | 00 ff 09 09 09 09 63 6f |or " &..|......co|
|00001da0| 6d 6d 61 6e 64 20 26 20 | 22 2e 2e 2e 3c 74 79 70 |mmand & |"...<typ|
|00001db0| 65 20 73 70 61 63 65 3e | 22 29 2c ff 01 00 ff 09 |e space>|"),.....|
|00001dc0| 09 40 6e 65 78 74 6b 65 | 79 2c ff 01 00 ff 09 09 |.@nextke|y,......|
|00001dd0| 40 65 63 68 6f 28 65 63 | 68 6f 29 29 2c ff 01 00 |@echo(ec|ho)),...|
|00001de0| ff ff 01 00 ff 09 3b 20 | 72 75 6e 20 74 68 65 20 |......; |run the |
|00001df0| 64 65 6d 6f 3f ff 01 00 | ff 3b 09 40 69 66 28 40 |demo?...|.;.@if(@|
|00001e00| 61 6e 64 28 40 6c 65 6e | 28 40 69 74 65 6d 31 29 |and(@len|(@item1)|
|00001e10| 20 3e 3d 20 36 2c 09 40 | 6d 69 64 28 40 69 74 65 | >= 6,.@|mid(@ite|
|00001e20| 6d 31 2c 20 31 2c 20 36 | 29 20 3d 20 22 44 4a 44 |m1, 1, 6|) = "DJD|
|00001e30| 45 4d 4f 22 29 2c ff 01 | 00 ff 3b 09 09 40 55 54 |EMO"),..|..;..@UT|
|00001e40| 49 4c 2e 44 4a 44 45 4d | 4f 2e 6d 61 69 6e 29 29 |IL.DJDEM|O.main))|
|00001e50| 2c ff 01 00 ff ff 01 00 | ff 40 55 54 49 4c 2e 52 |,.......|.@UTIL.R|
|00001e60| 65 73 74 6f 72 65 5f 64 | 65 73 6b 74 6f 70 28 64 |estore_d|esktop(d|
|00001e70| 65 73 6b 74 6f 70 5f 73 | 61 76 65 64 29 2c ff 01 |esktop_s|aved),..|
|00001e80| 00 ff ff 01 00 ff 3b 20 | 72 65 73 65 74 20 70 72 |......; |reset pr|
|00001e90| 65 70 61 72 65 20 68 65 | 6c 70 ff 01 00 ff 3b 54 |epare he|lp....;T|
|00001ea0| 65 6c 65 63 6f 6d 6d 75 | 6e 69 63 61 74 69 6f 6e |elecommu|nication|
|00001eb0| 73 2e 50 72 65 70 61 72 | 65 20 46 72 61 6d 65 20 |s.Prepar|e Frame |
|00001ec0| 74 6f 20 53 65 6e 64 20 | 3a 3d ff 01 00 ff 3b 09 |to Send |:=....;.|
|00001ed0| 50 72 65 64 65 66 69 6e | 65 64 5f 6d 65 6e 75 2e |Predefin|ed_menu.|
|00001ee0| 50 72 65 70 61 72 65 20 | 46 72 61 6d 65 20 74 6f |Prepare |Frame to|
|00001ef0| 20 53 65 6e 64 2c ff 01 | 00 ff ff 01 00 ff 40 72 | Send,..|......@r|
|00001f00| 65 74 75 72 6e 28 30 00 | 80 29 00 ff ff ff ff ff |eturn(0.|.)......|
|00001f10| 03 00 da 00 18 80 00 00 | 00 01 00 00 02 0a 00 00 |........|........|
|00001f20| 11 03 12 03 45 00 01 00 | f1 01 a2 00 f7 01 01 00 |....E...|........|
|00001f30| 06 00 05 00 0d 01 23 4e | 2f 41 21 00 ff ff ff ff |......#N|/A!.....|
|00001f40| 04 00 dc 00 02 00 07 40 | 01 00 12 00 12 00 12 00 |.......@|........|
|00001f50| 1e 00 15 00 2f 00 14 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00001f60| 1d 00 14 00 30 00 16 00 | 20 00 09 00 f5 01 00 00 |....0...| .......|
|00001f70| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 f6 01 |........|A....A..|
|00001f80| 02 00 de 00 18 82 00 00 | 00 01 00 00 02 00 05 00 |........|........|
|00001f90| 4d 4f 4e 45 59 00 ff ff | ff ff ff ff ff ff ff ff |MONEY...|........|
|00001fa0| 40 00 e0 00 18 82 00 00 | 00 01 00 00 02 00 8f 03 |@.......|........|
|00001fb0| 3b 20 4d 61 6e 61 67 65 | 20 59 6f 75 72 20 4d 6f |; Manage| Your Mo|
|00001fc0| 6e 65 79 ff 01 00 7f 3b | 20 40 49 74 65 6d 31 20 |ney....;| @Item1 |
|00001fd0| 69 73 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |is the p|arameter|
|00001fe0| 20 66 69 6c 65 ff 01 00 | ff ff 01 00 ff 40 6c 6f | file...|.....@lo|
|00001ff0| 63 61 6c 28 6f 75 74 70 | 75 74 2c 20 65 63 68 6f |cal(outp|ut, echo|
|00002000| 2c 20 63 6f 6d 6d 61 6e | 64 2c 20 65 72 72 6f 72 |, comman|d, error|
|00002010| 5f 63 6f 64 65 2c 20 64 | 72 69 76 65 2c 20 64 65 |_code, d|rive, de|
|00002020| 73 6b 74 6f 70 5f 73 61 | 76 65 64 29 2c ff 01 00 |sktop_sa|ved),...|
|00002030| ff ff 01 00 ff 63 6f 6d | 6d 61 6e 64 20 3a 3d 20 |.....com|mand := |
|00002040| 53 79 73 74 65 6d 5f 64 | 72 69 76 65 20 26 20 22 |System_d|rive & "|
|00002050| 4d 59 4d 2e 45 58 45 22 | 2c ff 01 00 ff ff 01 00 |MYM.EXE"|,.......|
|00002060| ff 3b 20 73 61 76 65 20 | 64 65 73 6b 74 6f 70 20 |.; save |desktop |
|00002070| 69 66 66 20 6e 65 63 65 | 73 73 61 72 79 ff 01 00 |iff nece|ssary...|
|00002080| ff 64 65 73 6b 74 6f 70 | 5f 73 61 76 65 64 20 3a |.desktop|_saved :|
|00002090| 3d 20 40 55 54 49 4c 2e | 53 61 76 65 5f 64 65 73 |= @UTIL.|Save_des|
|000020a0| 6b 74 6f 70 2c ff 01 00 | ff ff 01 00 ff 3b 20 73 |ktop,...|.....; s|
|000020b0| 61 76 65 20 64 65 66 61 | 75 6c 74 ff 01 00 ff 64 |ave defa|ult....d|
|000020c0| 72 69 76 65 20 3a 3d 20 | 40 73 65 74 64 72 69 76 |rive := |@setdriv|
|000020d0| 65 2c ff 01 00 ff ff 01 | 00 ff 3b 20 72 75 6e 20 |e,......|..; run |
|000020e0| 4d 61 6e 61 67 65 20 59 | 6f 75 72 20 4d 6f 6e 65 |Manage Y|our Mone|
|000020f0| 79 ff 01 00 ff 40 69 73 | 61 62 65 6e 64 28 23 66 |y....@is|abend(#f|
|00002100| 61 6c 73 65 29 2c ff 01 | 00 ff 65 72 72 6f 72 5f |alse),..|..error_|
|00002110| 63 6f 64 65 20 3a 3d 20 | 40 72 75 6e 28 6f 75 74 |code := |@run(out|
|00002120| 70 75 74 2c 20 63 6f 6d | 6d 61 6e 64 29 2c ff 01 |put, com|mand),..|
|00002130| 00 ff ff 01 00 ff 3b 20 | 72 65 73 74 6f 72 65 20 |......; |restore |
|00002140| 64 65 66 61 75 6c 74 ff | 01 00 ff 40 73 65 74 64 |default.|...@setd|
|00002150| 72 69 76 65 28 64 72 69 | 76 65 29 2c ff 01 00 ff |rive(dri|ve),....|
|00002160| ff 01 00 ff 40 69 66 28 | 40 61 6e 64 28 65 72 72 |....@if(|@and(err|
|00002170| 6f 72 5f 63 6f 64 65 20 | 3c 3e 20 30 2c 20 65 72 |or_code |<> 0, er|
|00002180| 72 6f 72 5f 63 6f 64 65 | 20 3c 3e 20 32 29 2c ff |ror_code| <> 2),.|
|00002190| 01 00 ff ff 01 00 ff 09 | 40 6c 69 73 74 28 ff 01 |........|@list(..|
|000021a0| 00 ff 09 09 65 63 68 6f | 20 3a 3d 20 40 65 63 68 |....echo| := @ech|
|000021b0| 6f 28 23 6f 6e 29 2c ff | 01 00 ff 09 09 40 62 65 |o(#on),.|.....@be|
|000021c0| 65 70 2c ff 01 00 ff 09 | 09 40 65 72 61 73 65 70 |ep,.....|.@erasep|
|000021d0| 72 6f 6d 70 74 2c ff 01 | 00 ff 09 09 40 70 72 6f |rompt,..|....@pro|
|000021e0| 6d 70 74 28 22 44 4f 53 | 20 65 72 72 6f 72 20 72 |mpt("DOS| error r|
|000021f0| 65 74 75 72 6e 20 63 6f | 64 65 20 22 20 26 20 40 |eturn co|de " & @|
|00002200| 69 6e 74 65 67 65 72 28 | 65 72 72 6f 72 5f 63 6f |integer(|error_co|
|00002210| 64 65 29 20 26 20 22 20 | 66 6f 72 20 22 20 26 ff |de) & " |for " &.|
|00002220| 01 00 ff 09 09 09 09 63 | 6f 6d 6d 61 6e 64 20 26 |.......c|ommand &|
|00002230| 20 22 2e 2e 2e 3c 74 79 | 70 65 20 73 70 61 63 65 | "...<ty|pe space|
|00002240| 3e 22 29 2c ff 01 00 ff | 09 09 40 6e 65 78 74 6b |>"),....|..@nextk|
|00002250| 65 79 2c ff 01 00 ff 09 | 09 40 65 63 68 6f 28 65 |ey,.....|.@echo(e|
|00002260| 63 68 6f 29 29 2c ff 01 | 00 ff ff 01 00 ff 09 3b |cho)),..|.......;|
|00002270| 20 72 75 6e 20 74 68 65 | 20 64 65 6d 6f 3f ff 01 | run the| demo?..|
|00002280| 00 ff 3b 09 40 69 66 28 | 40 61 6e 64 28 40 6c 65 |..;.@if(|@and(@le|
|00002290| 6e 28 40 69 74 65 6d 31 | 29 20 3e 3d 20 36 2c 09 |n(@item1|) >= 6,.|
|000022a0| 40 6d 69 64 28 40 69 74 | 65 6d 31 2c 20 31 2c 20 |@mid(@it|em1, 1, |
|000022b0| 36 29 20 3d 20 22 44 4a | 44 45 4d 4f 22 29 2c ff |6) = "DJ|DEMO"),.|
|000022c0| 01 00 ff 3b 09 09 40 55 | 54 49 4c 2e 44 4a 44 45 |...;..@U|TIL.DJDE|
|000022d0| 4d 4f 2e 6d 61 69 6e 29 | 29 2c ff 01 00 ff ff 01 |MO.main)|),......|
|000022e0| 00 ff 40 55 54 49 4c 2e | 52 65 73 74 6f 72 65 5f |..@UTIL.|Restore_|
|000022f0| 64 65 73 6b 74 6f 70 28 | 64 65 73 6b 74 6f 70 5f |desktop(|desktop_|
|00002300| 73 61 76 65 64 29 2c ff | 01 00 ff ff 01 00 ff 3b |saved),.|.......;|
|00002310| 20 72 65 73 65 74 20 70 | 72 65 70 61 72 65 20 68 | reset p|repare h|
|00002320| 65 6c 70 ff 01 00 ff 3b | 54 65 6c 65 63 6f 6d 6d |elp....;|Telecomm|
|00002330| 75 6e 69 63 61 74 69 6f | 6e 73 2e 50 72 65 70 61 |unicatio|ns.Prepa|
|00002340| 72 65 20 46 72 61 6d 65 | 20 74 6f 20 53 65 6e 64 |re Frame| to Send|
|00002350| 20 3a 3d ff 01 00 ff 3b | 09 50 72 65 64 65 66 69 | :=....;|.Predefi|
|00002360| 6e 65 64 5f 6d 65 6e 75 | 2e 50 72 65 70 61 72 65 |ned_menu|.Prepare|
|00002370| 20 46 72 61 6d 65 20 74 | 6f 20 53 65 6e 64 2c ff | Frame t|o Send,.|
|00002380| 01 00 ff ff 01 00 ff 40 | 72 65 74 75 72 6e 28 30 |.......@|return(0|
|00002390| 00 80 29 00 ff ff ff ff | ff ff ff ff ff ff ff ff |..).....|........|
|000023a0| 03 00 e2 00 18 80 00 00 | 00 01 00 00 02 01 0a 00 |........|........|
|000023b0| 12 38 f0 02 f8 02 f0 02 | 3a 02 a2 00 40 02 01 00 |.8......|:...@...|
|000023c0| 02 00 05 00 0d 01 23 54 | 52 55 45 00 ff ff ff ff |......#T|RUE.....|
|000023d0| 04 00 e4 00 02 00 05 40 | 01 00 0c 00 12 00 0c 00 |.......@|........|
|000023e0| 1e 00 0f 00 2f 00 0f 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|000023f0| 1d 00 0e 00 2f 00 0f 00 | 20 00 0a 00 3e 02 00 00 |..../...| ...>...|
|00002400| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 06 02 |........|A....A..|
|00002410| 02 00 e6 00 18 82 00 00 | 00 01 00 00 02 00 0b 00 |........|........|
|00002420| 44 65 6c 65 74 65 5f 6d | 65 6e 75 00 ff ff ff ff |Delete_m|enu.....|
|00002430| 0c 00 e8 00 18 82 00 00 | 00 01 00 00 02 00 97 00 |........|........|
|00002440| 3b 20 44 65 6c 65 74 65 | 5f 6d 65 6e 75 ff 01 00 |; Delete|_menu...|
|00002450| ff ff 01 00 ff 40 75 6e | 68 69 64 65 28 54 65 6c |.....@un|hide(Tel|
|00002460| 65 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 73 29 |ecommuni|cations)|
|00002470| 2c ff 01 00 ff 40 73 65 | 74 73 65 6c 65 63 74 69 |,....@se|tselecti|
|00002480| 6f 6e 28 22 54 65 6c 65 | 63 6f 6d 6d 75 6e 69 63 |on("Tele|communic|
|00002490| 61 74 69 6f 6e 73 22 29 | 2c ff 01 00 ff 40 69 66 |ations")|,....@if|
|000024a0| 28 40 73 65 74 73 65 6c | 65 63 74 69 6f 6e 20 3d |(@setsel|ection =|
|000024b0| 20 22 54 65 6c 65 63 6f | 6d 6d 75 6e 69 63 61 74 | "Teleco|mmunicat|
|000024c0| 69 6f 6e 73 22 2c ff 01 | 00 ff 09 40 70 65 72 66 |ions",..|...@perf|
|000024d0| 6f 72 6d 6b 65 79 73 28 | 22 7b 64 65 6c 7d 22 29 |ormkeys(|"{del}")|
|000024e0| 29 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |).......|........|
|000024f0| 03 00 ea 00 08 00 00 00 | 00 01 00 00 02 00 06 00 |........|........|
|00002500| 01 00 03 00 00 00 01 00 | 4f 02 a2 00 00 00 01 00 |........|O.......|
|00002510| 03 00 02 00 0d 01 43 00 | 3a 00 0d 00 4c 00 4c 00 |......C.|:...L.L.|
|00002520| 04 00 ec 00 02 00 05 40 | 01 00 0e 00 12 00 0e 00 |.......@|........|
|00002530| 1e 00 11 00 2f 00 11 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00002540| 1d 00 10 00 2f 00 11 00 | 20 00 0b 00 53 02 00 00 |..../...| ...S...|
|00002550| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 0e 02 |........|A....A..|
|00002560| 02 00 ee 00 18 82 00 00 | 00 01 00 00 02 00 0c 00 |........|........|
|00002570| 53 79 73 74 65 6d 5f 64 | 72 69 76 65 00 ff ff ff |System_d|rive....|
|00002580| 03 00 f0 00 58 80 00 00 | 00 01 20 00 02 01 08 00 |....X...|.. .....|
|00002590| 85 03 be 03 85 03 00 00 | 58 02 a2 00 00 00 01 00 |........|X.......|
|000025a0| 07 00 06 00 0d 01 23 46 | 41 4c 53 45 00 ff ff ff |......#F|ALSE....|
|000025b0| 04 00 f2 00 02 00 05 40 | 01 00 10 00 12 00 10 00 |.......@|........|
|000025c0| 1e 00 13 00 2f 00 13 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|000025d0| 1d 00 12 00 2f 00 13 00 | 20 00 0c 00 5c 02 00 00 |..../...| ...\...|
|000025e0| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 14 02 |........|A....A..|
|000025f0| 02 00 f4 00 18 82 00 00 | 00 01 00 00 02 00 07 00 |........|........|
|00002600| 53 74 61 79 5f 69 6e 00 | ff ff ff ff ff ff ff ff |Stay_in.|........|
|00002610| 03 00 f6 00 18 80 00 00 | 00 01 00 00 02 01 18 00 |........|........|
|00002620| 01 00 14 00 01 00 d6 02 | 61 02 a2 00 67 02 01 00 |........|a...g...|
|00002630| 02 00 09 00 0d 01 23 46 | 55 4e 43 54 49 4f 4e 00 |......#F|UNCTION.|
|00002640| 04 00 f8 00 02 00 05 40 | 01 00 12 00 11 00 12 00 |.......@|........|
|00002650| 1e 00 15 00 2e 00 14 00 | 1d 00 03 00 36 00 14 00 |........|....6...|
|00002660| 1d 00 14 00 2f 00 15 00 | 20 00 0d 00 65 02 00 00 |..../...| ...e...|
|00002670| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f 1a 02 |........|O....O..|
|00002680| 02 00 fa 00 18 82 00 00 | 00 01 00 00 02 00 07 00 |........|........|
|00002690| 50 72 65 70 61 72 65 00 | ff ff ff ff ff ff ff ff |Prepare.|........|
|000026a0| 6a 00 fc 00 18 82 00 00 | 00 01 00 00 02 00 07 06 |j.......|........|
|000026b0| 3b 20 50 72 65 70 61 72 | 65 ff 01 00 7f ff 01 00 |; Prepar|e.......|
|000026c0| ff 40 6c 6f 63 61 6c 28 | 65 63 68 6f 2c 20 66 72 |.@local(|echo, fr|
|000026d0| 61 6d 65 29 2c ff 01 00 | ff ff 01 00 ff 40 68 69 |ame),...|.....@hi|
|000026e0| 64 65 28 55 54 49 4c 29 | 2c ff 01 00 ff ff 01 00 |de(UTIL)|,.......|
|000026f0| ff 65 63 68 6f 20 3a 3d | 20 40 65 63 68 6f 28 23 |.echo :=| @echo(#|
|00002700| 6f 6e 29 2c ff 01 00 ff | ff 01 00 ff 66 72 61 6d |on),....|....fram|
|00002710| 65 20 3a 3d 20 40 69 6e | 70 75 74 6c 69 6e 65 28 |e := @in|putline(|
|00002720| ff 01 00 ff 09 22 45 6e | 74 65 72 20 66 72 61 6d |....."En|ter fram|
|00002730| 65 20 6e 61 6d 65 20 74 | 6f 20 70 72 65 70 61 72 |e name t|o prepar|
|00002740| 65 20 28 6f 72 20 43 55 | 52 53 4f 52 20 50 4f 49 |e (or CU|RSOR POI|
|00002750| 4e 54 20 18 29 3b 20 20 | 52 45 54 55 52 4e 20 66 |NT .);  |RETURN f|
|00002760| 69 6e 69 73 68 65 73 22 | 2c 2c ff 01 00 ff 09 23 |inishes"|,,.....#|
|00002770| 74 72 75 65 2c 23 74 72 | 75 65 2c 23 74 72 75 65 |true,#tr|ue,#true|
|00002780| 29 2c ff 01 00 ff ff 01 | 00 ff 40 75 6e 68 69 64 |),......|..@unhid|
|00002790| 65 28 55 54 49 4c 29 2c | ff 01 00 ff ff 01 00 ff |e(UTIL),|........|
|000027a0| 40 65 63 68 6f 28 65 63 | 68 6f 29 2c ff 01 00 ff |@echo(ec|ho),....|
|000027b0| ff 01 00 ff 40 69 66 28 | 40 69 73 65 72 72 28 40 |....@if(|@iserr(@|
|000027c0| 73 65 74 73 65 6c 65 63 | 74 69 6f 6e 28 66 72 61 |setselec|tion(fra|
|000027d0| 6d 65 29 29 2c ff 01 00 | ff 09 40 6c 69 73 74 28 |me)),...|..@list(|
|000027e0| ff 01 00 ff 09 09 40 62 | 65 65 70 2c ff 01 00 ff |......@b|eep,....|
|000027f0| 09 09 40 72 65 74 75 72 | 6e 28 22 3c 63 61 6e 6e |..@retur|n("<cann|
|00002800| 6f 74 20 70 72 65 70 61 | 72 65 20 5b 22 20 26 20 |ot prepa|re [" & |
|00002810| 66 72 61 6d 65 20 26 20 | 22 5d 20 66 72 61 6d 65 |frame & |"] frame|
|00002820| 3e 22 29 29 29 2c ff 01 | 00 ff ff 01 00 ff 3b 20 |>"))),..|......; |
|00002830| 70 72 65 70 61 72 65 20 | 22 66 72 61 6d 65 22 ff |prepare |"frame".|
|00002840| 01 00 ff 40 6c 6f 63 61 | 6c 28 66 69 6c 65 5f 6e |...@loca|l(file_n|
|00002850| 61 6d 65 2c 20 69 2c 20 | 6c 2c 20 73 68 69 66 74 |ame, i, |l, shift|
|00002860| 2c 20 76 65 72 62 2c 20 | 65 72 72 6f 72 5f 63 6f |, verb, |error_co|
|00002870| 64 65 29 2c ff 01 00 ff | ff 01 00 ff 40 6d 65 6e |de),....|....@men|
|00002880| 75 28 55 54 49 4c 2e 50 | 72 65 70 61 72 65 5f 6d |u(UTIL.P|repare_m|
|00002890| 65 6e 75 29 2c ff 01 00 | ff ff 01 00 ff 40 69 66 |enu),...|.....@if|
|000028a0| 28 40 6b 65 79 20 3d 20 | 7b 65 73 63 7d 2c ff 01 |(@key = |{esc},..|
|000028b0| 00 ff 09 40 72 65 74 75 | 72 6e 28 22 3c 70 72 65 |...@retu|rn("<pre|
|000028c0| 70 61 72 65 20 63 61 6e | 63 65 6c 6c 65 64 3e 22 |pare can|celled>"|
|000028d0| 29 29 2c ff 01 00 ff ff | 01 00 ff 3b 20 62 75 69 |)),.....|...; bui|
|000028e0| 6c 64 20 66 69 6c 65 6e | 61 6d 65 ff 01 00 ff 73 |ld filen|ame....s|
|000028f0| 68 69 66 74 20 3a 3d 20 | 22 5f 5f 5f 5f 5f 5f 5f |hift := |"_______|
|00002900| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 5f 5f 5f 5f 5f |________|________|
|00002910| 5f 5f 5f 5f 5f 5f 5f 5f | 5f 5f 21 5f 23 24 25 26 |________|__!_#$%&|
|00002920| 27 28 29 5f 5f 5f 2d 5f | 5f 30 31 32 33 34 35 36 |'()___-_|_0123456|
|00002930| 37 38 39 5f 5f 5f 5f 5f | 5f 22 20 26 ff 01 00 ff |789_____|_" &....|
|00002940| 09 09 20 22 40 41 42 43 | 44 45 46 47 48 49 4a 4b |.. "@ABC|DEFGHIJK|
|00002950| 4c 4d 4e 4f 50 51 52 53 | 54 55 56 57 58 59 5a 5f |LMNOPQRS|TUVWXYZ_|
|00002960| 5f 5f 5e 5f 60 41 42 43 | 44 45 46 47 48 49 4a 4b |__^_`ABC|DEFGHIJK|
|00002970| 4c 4d 4e 4f 50 51 52 53 | 54 55 56 57 58 59 5a 7b |LMNOPQRS|TUVWXYZ{|
|00002980| 5f 7d 7e 5f 22 2c ff 01 | 00 ff 6c 20 3a 3d 20 40 |_}~_",..|..l := @|
|00002990| 6d 69 6e 28 40 6c 65 6e | 28 66 72 61 6d 65 29 2c |min(@len|(frame),|
|000029a0| 20 38 29 2c ff 01 00 ff | 69 20 3a 3d 20 31 2c ff | 8),....|i := 1,.|
|000029b0| 01 00 ff 40 77 68 69 6c | 65 28 69 20 3c 3d 20 6c |...@whil|e(i <= l|
|000029c0| 2c ff 01 00 ff 09 66 69 | 6c 65 5f 6e 61 6d 65 20 |,.....fi|le_name |
|000029d0| 3a 3d 20 66 69 6c 65 5f | 6e 61 6d 65 20 26 20 40 |:= file_|name & @|
|000029e0| 6d 69 64 28 73 68 69 66 | 74 2c 20 40 69 6e 74 28 |mid(shif|t, @int(|
|000029f0| 40 6d 69 64 28 66 72 61 | 6d 65 2c 20 69 2c 20 31 |@mid(fra|me, i, 1|
|00002a00| 29 29 20 2b 20 31 2c 20 | 31 29 2c ff 01 00 ff 09 |)) + 1, |1),.....|
|00002a10| 69 20 3a 3d 20 69 20 2b | 20 31 29 2c ff 01 00 ff |i := i +| 1),....|
|00002a20| ff 01 00 ff 40 69 66 28 | 50 72 65 70 61 72 65 5f |....@if(|Prepare_|
|00002a30| 74 79 70 65 20 3d 20 22 | 42 49 4e 41 52 59 22 2c |type = "|BINARY",|
|00002a40| ff 01 00 ff 09 40 6c 69 | 73 74 28 ff 01 00 ff 09 |.....@li|st(.....|
|00002a50| 09 66 69 6c 65 5f 6e 61 | 6d 65 20 3a 3d 20 40 73 |.file_na|me := @s|
|00002a60| 65 74 64 72 69 76 65 20 | 26 20 66 69 6c 65 5f 6e |etdrive |& file_n|
|00002a70| 61 6d 65 20 26 20 22 2e | 46 24 42 22 2c ff 01 00 |ame & ".|F$B",...|
|00002a80| ff 09 09 76 65 72 62 20 | 3a 3d 20 22 40 77 72 69 |...verb |:= "@wri|
|00002a90| 74 65 66 72 61 6d 65 66 | 69 6c 65 28 22 22 22 20 |teframef|ile(""" |
|00002aa0| 26 20 66 69 6c 65 5f 6e | 61 6d 65 20 26 20 22 22 |& file_n|ame & ""|
|00002ab0| 22 2c 22 20 26 20 66 72 | 61 6d 65 20 26 20 22 29 |"," & fr|ame & ")|
|00002ac0| 22 29 2c ff 01 00 ff 09 | 40 6c 69 73 74 28 ff 01 |"),.....|@list(..|
|00002ad0| 00 ff 09 09 66 69 6c 65 | 5f 6e 61 6d 65 20 3a 3d |....file|_name :=|
|00002ae0| 20 40 73 65 74 64 72 69 | 76 65 20 26 20 66 69 6c | @setdri|ve & fil|
|00002af0| 65 5f 6e 61 6d 65 20 26 | 20 22 2e 46 24 54 22 2c |e_name &| ".F$T",|
|00002b00| ff 01 00 ff 09 09 76 65 | 72 62 20 3a 3d 20 22 40 |......ve|rb := "@|
|00002b10| 77 72 69 74 65 74 65 78 | 74 66 69 6c 65 28 22 22 |writetex|tfile(""|
|00002b20| 22 20 26 20 66 69 6c 65 | 5f 6e 61 6d 65 20 26 20 |" & file|_name & |
|00002b30| 22 22 22 2c 22 20 26 20 | 66 72 61 6d 65 20 26 20 |"""," & |frame & |
|00002b40| 22 29 22 29 29 2c ff 01 | 00 ff ff 01 00 ff 65 63 |")")),..|......ec|
|00002b50| 68 6f 20 3a 3d 20 40 65 | 63 68 6f 28 23 6f 6e 29 |ho := @e|cho(#on)|
|00002b60| 2c ff 01 00 ff ff 01 00 | ff 40 65 72 61 73 65 70 |,.......|.@erasep|
|00002b70| 72 6f 6d 70 74 2c ff 01 | 00 ff 40 70 72 6f 6d 70 |rompt,..|..@promp|
|00002b80| 74 28 22 50 72 65 70 61 | 72 69 6e 67 20 5b 22 20 |t("Prepa|ring [" |
|00002b90| 26 20 66 72 61 6d 65 20 | 26 20 22 5d 20 61 73 20 |& frame |& "] as |
|00002ba0| 22 20 26 20 66 69 6c 65 | 5f 6e 61 6d 65 20 26 20 |" & file|_name & |
|00002bb0| 22 2e 2e 2e 22 29 2c ff | 01 00 ff ff 01 00 ff 40 |"..."),.|.......@|
|00002bc0| 69 73 61 62 65 6e 64 28 | 23 66 61 6c 73 65 29 2c |isabend(|#false),|
|00002bd0| ff 01 00 ff 65 72 72 6f | 72 5f 63 6f 64 65 20 3a |....erro|r_code :|
|00002be0| 3d 20 40 76 65 72 62 2c | 09 3b 20 40 77 72 69 74 |= @verb,|.; @writ|
|00002bf0| 65 3c 74 65 78 74 2f 66 | 72 61 6d 65 3e 66 69 6c |e<text/f|rame>fil|
|00002c00| 65 28 2e 2e 2e 29 ff 01 | 00 ff ff 01 00 ff 40 65 |e(...)..|......@e|
|00002c10| 63 68 6f 28 65 63 68 6f | 29 2c ff 01 00 ff ff 01 |cho(echo|),......|
|00002c20| 00 ff 40 69 66 28 40 61 | 6e 64 28 65 72 72 6f 72 |..@if(@a|nd(error|
|00002c30| 5f 63 6f 64 65 20 3d 20 | 30 2c 20 40 6e 6f 74 28 |_code = |0, @not(|
|00002c40| 40 69 73 61 62 65 6e 64 | 29 29 2c ff 01 00 ff 09 |@isabend|)),.....|
|00002c50| 40 6c 69 73 74 28 ff 01 | 00 ff 09 09 55 54 49 4c |@list(..|....UTIL|
|00002c60| 2e 50 72 65 70 61 72 65 | 5f 66 6c 61 67 20 3a 3d |.Prepare|_flag :=|
|00002c70| 20 23 74 72 75 65 2c ff | 01 00 ff 09 09 40 72 65 | #true,.|.....@re|
|00002c80| 74 75 72 6e 28 22 3c 66 | 69 6c 65 6e 61 6d 65 20 |turn("<f|ilename |
|00002c90| 5b 22 20 26 20 66 69 6c | 65 5f 6e 61 6d 65 20 26 |[" & fil|e_name &|
|00002ca0| 20 22 5d 20 70 72 65 70 | 61 72 65 64 20 66 6f 72 | "] prep|ared for|
|00002cb0| 20 63 6f 6d 6d 75 6e 69 | 63 61 74 69 6f 6e 73 3e | communi|cations>|
|00002cc0| 22 29 29 2c ff 01 00 ff | 09 40 72 65 74 75 72 6e |")),....|.@return|
|00002cd0| 28 22 3c 44 4f 53 20 65 | 72 72 6f 72 20 72 65 74 |("<DOS e|rror ret|
|00002ce0| 75 72 6e 20 63 6f 64 65 | 20 22 20 26 20 40 69 6e |urn code| " & @in|
|00002cf0| 74 65 67 65 72 28 65 72 | 72 6f 72 5f 63 6f 64 65 |teger(er|ror_code|
|00002d00| 29 20 26 ff 01 00 ff 09 | 09 09 22 20 77 68 69 6c |) &.....|.." whil|
|00002d10| 65 20 70 72 65 70 61 72 | 69 6e 67 20 22 20 26 20 |e prepar|ing " & |
|00002d20| 66 69 6c 65 5f 6e 61 6d | 65 20 26 20 22 3e 22 29 |file_nam|e & ">")|
|00002d30| 00 80 29 00 ff ff ff ff | ff ff ff ff ff ff ff ff |..).....|........|
|00002d40| 03 00 fe 00 08 00 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00002d50| 01 00 05 00 00 00 01 00 | d4 02 a2 00 00 00 01 00 |........|........|
|00002d60| 05 00 04 00 0d 01 54 00 | 45 00 58 00 54 00 0d 00 |......T.|E.X.T...|
|00002d70| 04 00 00 01 02 00 05 40 | 01 00 12 00 11 00 12 00 |.......@|........|
|00002d80| 1e 00 15 00 2e 00 14 00 | 1d 00 03 00 36 00 14 00 |........|....6...|
|00002d90| 1d 00 14 00 2f 00 15 00 | 20 00 0e 00 d8 02 00 00 |..../...| .......|
|00002da0| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f 22 02 |........|O....O".|
|00002db0| 02 00 02 01 18 82 00 00 | 00 01 00 00 02 00 0c 00 |........|........|
|00002dc0| 50 72 65 70 61 72 65 5f | 74 79 70 65 00 ff ff ff |Prepare_|type....|
|00002dd0| 03 00 04 01 58 80 00 00 | 00 01 20 00 02 01 08 00 |....X...|.. .....|
|00002de0| 85 03 be 03 85 03 00 00 | dd 02 a2 00 00 00 01 00 |........|........|
|00002df0| 07 00 06 00 0d 01 23 46 | 41 4c 53 45 00 ff ff ff |......#F|ALSE....|
|00002e00| 04 00 06 01 02 00 05 40 | 01 00 14 00 12 00 14 00 |.......@|........|
|00002e10| 1e 00 17 00 2f 00 14 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00002e20| 1d 00 16 00 2f 00 17 00 | 20 00 0f 00 e1 02 00 00 |..../...| .......|
|00002e30| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f 14 04 |........|O....O..|
|00002e40| 02 00 08 01 18 82 00 00 | 00 01 00 00 02 00 0c 00 |........|........|
|00002e50| 50 72 65 70 61 72 65 5f | 66 6c 61 67 00 ff ff ff |Prepare_|flag....|
|00002e60| 03 00 0a 01 18 80 00 00 | 00 01 00 00 02 01 18 00 |........|........|
|00002e70| 78 02 7d 02 78 02 00 00 | e6 02 a2 00 ec 02 01 00 |x.}.x...|........|
|00002e80| 02 00 09 00 0d 01 23 46 | 55 4e 43 54 49 4f 4e 00 |......#F|UNCTION.|
|00002e90| 04 00 0c 01 02 00 05 40 | 01 00 14 00 11 00 14 00 |.......@|........|
|00002ea0| 1e 00 17 00 2e 00 14 00 | 1d 00 03 00 36 00 14 00 |........|....6...|
|00002eb0| 1d 00 16 00 2f 00 17 00 | 20 00 10 00 ea 02 00 00 |..../...| .......|
|00002ec0| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f b8 01 |........|O....O..|
|00002ed0| 02 00 0e 01 18 82 00 00 | 00 01 00 00 02 00 06 00 |........|........|
|00002ee0| 55 70 64 61 74 65 00 ff | ff ff ff ff ff ff ff ff |Update..|........|
|00002ef0| 30 00 10 01 18 82 00 00 | 00 01 00 00 02 00 a5 02 |0.......|........|
|00002f00| 3b 20 55 70 64 61 74 65 | ff 01 00 7f ff 01 00 ff |; Update|........|
|00002f10| 40 73 65 74 73 65 6c 65 | 63 74 69 6f 6e 28 22 55 |@setsele|ction("U|
|00002f20| 54 49 4c 22 29 2c ff 01 | 00 ff 40 70 65 72 66 6f |TIL"),..|..@perfo|
|00002f30| 72 6d 6b 65 79 73 28 22 | 7b 63 74 72 6c 2d 64 7d |rmkeys("|{ctrl-d}|
|00002f40| 67 22 20 26 20 53 79 73 | 74 65 6d 5f 64 72 69 76 |g" & Sys|tem_driv|
|00002f50| 65 20 26 20 22 46 57 54 | 43 4d 45 4e 55 2e 46 57 |e & "FWT|CMENU.FW|
|00002f60| 7b 72 65 74 75 72 6e 7d | 22 29 2c ff 01 00 ff ff |{return}|"),.....|
|00002f70| 01 00 ff 40 69 66 28 40 | 73 65 74 73 65 6c 65 63 |...@if(@|setselec|
|00002f80| 74 69 6f 6e 20 3c 3e 20 | 22 46 57 54 43 4d 45 4e |tion <> |"FWTCMEN|
|00002f90| 55 22 2c ff 01 00 ff 09 | 40 72 65 74 75 72 6e 28 |U",.....|@return(|
|00002fa0| 22 3c 22 20 26 20 53 79 | 73 74 65 6d 5f 64 72 69 |"<" & Sy|stem_dri|
|00002fb0| 76 65 20 26 20 22 46 57 | 54 43 4d 45 4e 55 2e 46 |ve & "FW|TCMENU.F|
|00002fc0| 57 20 6e 6f 74 20 66 6f | 75 6e 64 3e 22 29 29 2c |W not fo|und>")),|
|00002fd0| ff 01 00 ff ff 01 00 ff | 40 6c 6f 63 61 6c 28 65 |........|@local(e|
|00002fe0| 63 68 6f 2c 20 6d 65 73 | 73 61 67 65 29 2c ff 01 |cho, mes|sage),..|
|00002ff0| 00 ff ff 01 00 ff 3b 20 | 73 65 74 20 75 70 20 6e |......; |set up n|
|00003000| 61 76 69 67 61 74 69 6f | 6e ff 01 00 ff 40 6b 65 |avigatio|n....@ke|
|00003010| 79 66 69 6c 74 65 72 28 | 7b 75 70 61 72 72 6f 77 |yfilter(|{uparrow|
|00003020| 7d 2c 55 70 64 61 74 65 | 5f 75 70 29 2c ff 01 00 |},Update|_up),...|
|00003030| ff 40 6b 65 79 66 69 6c | 74 65 72 28 7b 64 6e 61 |.@keyfil|ter({dna|
|00003040| 72 72 6f 77 7d 2c 55 70 | 64 61 74 65 5f 64 6f 77 |rrow},Up|date_dow|
|00003050| 6e 29 2c ff 01 00 ff ff | 01 00 ff 55 70 64 61 74 |n),.....|...Updat|
|00003060| 65 5f 6d 65 6e 75 2e 5b | 41 64 64 20 20 5d 20 3a |e_menu.[|Add  ] :|
|00003070| 3d 20 22 28 41 64 64 20 | 61 20 6e 65 77 20 6d 65 |= "(Add |a new me|
|00003080| 6e 75 20 69 74 65 6d 29 | 22 2c ff 01 00 ff 55 70 |nu item)|",....Up|
|00003090| 64 61 74 65 5f 6d 65 6e | 75 2e 5b 44 65 6c 65 74 |date_men|u.[Delet|
|000030a0| 65 20 20 5d 20 3a 3d 20 | 22 28 44 65 6c 65 74 65 |e  ] := |"(Delete|
|000030b0| 20 73 65 6c 65 63 74 65 | 64 20 6d 65 6e 75 20 69 | selecte|d menu i|
|000030c0| 74 65 6d 29 22 2c ff 01 | 00 ff ff 01 00 ff 40 70 |tem)",..|......@p|
|000030d0| 65 72 66 6f 72 6d 6b 65 | 79 73 28 22 7b 66 39 7d |erformke|ys("{f9}|
|000030e0| 7b 68 6f 6d 65 7d 22 29 | 2c ff 01 00 ff 65 63 68 |{home}")|,....ech|
|000030f0| 6f 20 3a 3d 20 40 65 63 | 68 6f 28 23 6f 6e 29 2c |o := @ec|ho(#on),|
|00003100| ff 01 00 ff ff 01 00 ff | 40 6d 65 6e 75 28 55 54 |........|@menu(UT|
|00003110| 49 4c 2e 55 70 64 61 74 | 65 5f 6d 65 6e 75 29 2c |IL.Updat|e_menu),|
|00003120| ff 01 00 ff ff 01 00 ff | 40 69 66 28 53 74 61 79 |........|@if(Stay|
|00003130| 5f 69 6e 2c ff 01 00 ff | 09 40 71 75 69 74 6d 65 |_in,....|.@quitme|
|00003140| 6e 75 29 2c ff 01 00 ff | ff 01 00 ff 40 65 63 68 |nu),....|....@ech|
|00003150| 6f 28 65 63 68 6f 29 2c | ff 01 00 ff ff 01 00 ff |o(echo),|........|
|00003160| 3b 20 72 65 73 65 74 ff | 01 00 ff 40 6b 65 79 66 |; reset.|...@keyf|
|00003170| 69 6c 74 65 72 28 7b 75 | 70 61 72 72 6f 77 7d 29 |ilter({u|parrow})|
|00003180| 2c ff 01 00 ff 40 6b 65 | 79 66 69 6c 74 65 72 28 |,....@ke|yfilter(|
|00003190| 7b 64 6e 61 72 72 6f 77 | 7d 29 2c ff 01 00 ff ff |{dnarrow|}),.....|
|000031a0| 01 00 ff 40 73 65 74 73 | 65 6c 65 63 74 69 6f 6e |...@sets|election|
|000031b0| 28 22 46 57 54 43 4d 45 | 4e 55 22 29 2c ff 01 00 |("FWTCME|NU"),...|
|000031c0| ff 40 70 65 72 66 6f 72 | 6d 6b 65 79 73 28 22 7b |.@perfor|mkeys("{|
|000031d0| 64 65 6c 7d 22 29 2c ff | 01 00 ff ff 01 00 ff 40 |del}"),.|.......@|
|000031e0| 72 65 74 75 72 6e 28 00 | 80 30 29 00 ff ff ff ff |return(.|.0).....|
|000031f0| 03 00 12 01 18 80 00 00 | 00 01 00 00 02 01 0a 00 |........|........|
|00003200| 1f 03 d4 2d ee 04 5b ae | 1f 03 a2 00 25 03 01 00 |...-..[.|....%...|
|00003210| 06 00 05 00 0d 01 23 54 | 52 55 45 00 ff ff ff ff |......#T|RUE.....|
|00003220| 04 00 14 01 02 00 05 40 | 01 00 14 00 12 00 14 00 |.......@|........|
|00003230| 1e 00 17 00 2f 00 14 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00003240| 1d 00 16 00 2f 00 17 00 | 20 00 11 00 23 03 00 00 |..../...| ...#...|
|00003250| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f c0 01 |........|O....O..|
|00003260| 02 00 16 01 18 82 00 00 | 00 01 00 00 02 00 09 00 |........|........|
|00003270| 55 70 64 61 74 65 5f 75 | 70 00 ff ff ff ff ff ff |Update_u|p.......|
|00003280| 03 00 18 01 18 82 00 00 | 00 01 00 00 02 00 11 00 |........|........|
|00003290| 40 70 65 72 66 6f 72 6d | 6b 65 79 73 28 22 18 22 |@perform|keys("."|
|000032a0| 29 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |).......|........|
|000032b0| 03 00 1a 01 18 80 00 00 | 00 01 00 00 02 01 0a 00 |........|........|
|000032c0| 1f 03 d4 2d ee 04 5b ae | 2b 03 a2 00 31 03 01 00 |...-..[.|+...1...|
|000032d0| 06 00 05 00 0d 01 23 54 | 52 55 45 00 ff ff ff ff |......#T|RUE.....|
|000032e0| 04 00 1c 01 02 00 05 40 | 01 00 14 00 12 00 14 00 |.......@|........|
|000032f0| 1e 00 17 00 2f 00 14 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00003300| 1d 00 16 00 2f 00 17 00 | 20 00 12 00 2f 03 00 00 |..../...| .../...|
|00003310| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f c8 01 |........|O....O..|
|00003320| 02 00 1e 01 18 82 00 00 | 00 01 00 00 02 00 0b 00 |........|........|
|00003330| 55 70 64 61 74 65 5f 64 | 6f 77 6e 00 ff ff ff ff |Update_d|own.....|
|00003340| 03 00 20 01 18 82 00 00 | 00 01 00 00 02 00 11 00 |.. .....|........|
|00003350| 40 70 65 72 66 6f 72 6d | 6b 65 79 73 28 22 19 22 |@perform|keys("."|
|00003360| 29 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |).......|........|
|00003370| 03 00 22 01 18 80 00 00 | 00 01 00 00 02 01 18 00 |..".....|........|
|00003380| 24 03 4a 03 24 03 70 33 | 37 03 a2 00 3d 03 01 00 |$.J.$.p3|7...=...|
|00003390| 02 00 09 00 0d 01 23 46 | 55 4e 43 54 49 4f 4e 00 |......#F|UNCTION.|
|000033a0| 04 00 24 01 02 00 05 40 | 01 00 0c 00 11 00 0c 00 |..$....@|........|
|000033b0| 1e 00 0f 00 2e 00 0f 00 | 1d 00 03 00 36 00 14 00 |........|....6...|
|000033c0| 1d 00 0e 00 2f 00 0f 00 | 20 00 13 00 3b 03 00 00 |..../...| ...;...|
|000033d0| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 d2 01 |........|A....A..|
|000033e0| 02 00 26 01 18 82 00 00 | 00 01 00 00 02 00 0c 00 |..&.....|........|
|000033f0| 53 61 76 65 5f 64 65 73 | 6b 74 6f 70 00 ff ff ff |Save_des|ktop....|
|00003400| 40 00 28 01 18 82 00 00 | 00 01 00 00 02 00 a7 03 |@.(.....|........|
|00003410| 3b 20 53 61 76 65 5f 64 | 65 73 6b 74 6f 70 ff 01 |; Save_d|esktop..|
|00003420| 00 ff ff 01 00 ff 40 6d | 65 6d 61 76 61 69 6c 2c |......@m|emavail,|
|00003430| ff 01 00 ff 40 69 66 28 | 40 6d 65 6d 61 76 61 69 |....@if(|@memavai|
|00003440| 6c 20 3c 20 37 30 30 30 | 30 2c ff 01 00 ff ff 01 |l < 7000|0,......|
|00003450| 00 ff 09 40 6c 69 73 74 | 28 ff 01 00 ff 09 09 40 |...@list|(......@|
|00003460| 73 65 74 73 65 6c 65 63 | 74 69 6f 6e 28 22 55 54 |setselec|tion("UT|
|00003470| 49 4c 22 29 2c ff 01 00 | ff 09 09 40 70 65 72 66 |IL"),...|...@perf|
|00003480| 6f 72 6d 6b 65 79 73 28 | 22 7b 63 74 72 6c 2d 63 |ormkeys(|"{ctrl-c|
|00003490| 7d 65 44 45 53 4b 54 4f | 50 7b 72 65 74 75 72 6e |}eDESKTO|P{return|
|000034a0| 7d 22 29 2c ff 01 00 ff | 09 09 3b 20 6d 6f 76 65 |}"),....|..; move|
|000034b0| 20 55 54 49 4c 20 74 6f | 20 62 6f 74 74 6f 6d 20 | UTIL to| bottom |
|000034c0| 61 6e 64 20 73 74 75 66 | 66 20 65 76 65 72 79 62 |and stuf|f everyb|
|000034d0| 6f 64 79 20 65 6c 73 65 | 20 69 6e 74 6f 20 44 45 |ody else| into DE|
|000034e0| 53 4b 54 4f 50 ff 01 00 | ff 09 09 40 73 65 74 73 |SKTOP...|...@sets|
|000034f0| 65 6c 65 63 74 69 6f 6e | 28 22 55 54 49 4c 22 29 |election|("UTIL")|
|00003500| 2c ff 01 00 ff 09 09 40 | 70 65 72 66 6f 72 6d 6b |,......@|performk|
|00003510| 65 79 73 28 22 7b 66 37 | 7d 7b 65 6e 64 7d 7b 72 |eys("{f7|}{end}{r|
|00003520| 65 74 75 72 6e 7d 7b 75 | 70 61 72 72 6f 77 7d 7b |eturn}{u|parrow}{|
|00003530| 75 70 61 72 72 6f 77 7d | 22 20 26 ff 01 00 ff 09 |uparrow}|" &.....|
|00003540| 09 09 22 7b 66 36 7d 7b | 68 6f 6d 65 7d 7b 66 37 |.."{f6}{|home}{f7|
|00003550| 7d 7b 64 6e 61 72 72 6f | 77 7d 7b 64 6e 6c 65 76 |}{dnarro|w}{dnlev|
|00003560| 65 6c 7d 7b 72 65 74 75 | 72 6e 7d 7b 75 70 6c 65 |el}{retu|rn}{uple|
|00003570| 76 65 6c 7d 7b 72 65 74 | 75 72 6e 7d 22 29 2c ff |vel}{ret|urn}"),.|
|00003580| 01 00 ff ff 01 00 ff 09 | 09 40 6c 6f 63 61 6c 28 |........|.@local(|
|00003590| 65 63 68 6f 2c 20 65 72 | 72 6f 72 5f 63 6f 64 65 |echo, er|ror_code|
|000035a0| 29 2c ff 01 00 ff 09 09 | 65 63 68 6f 20 3a 3d 20 |),......|echo := |
|000035b0| 40 65 63 68 6f 28 23 6f | 6e 29 2c ff 01 00 ff 09 |@echo(#o|n),.....|
|000035c0| 09 40 65 72 61 73 65 70 | 72 6f 6d 70 74 2c ff 01 |.@erasep|rompt,..|
|000035d0| 00 ff 09 09 40 70 72 6f | 6d 70 74 28 22 53 61 76 |....@pro|mpt("Sav|
|000035e0| 69 6e 67 20 44 65 73 6b | 74 6f 70 20 61 73 20 22 |ing Desk|top as "|
|000035f0| 22 44 45 53 4b 54 4f 50 | 2e 24 46 57 22 22 2e 2e |"DESKTOP|.$FW""..|
|00003600| 2e 28 70 6c 65 61 73 65 | 20 77 61 69 74 29 2e 2e |.(please| wait)..|
|00003610| 2e 22 29 2c ff 01 00 ff | ff 01 00 ff 09 09 40 69 |."),....|......@i|
|00003620| 73 61 62 65 6e 64 28 23 | 66 61 6c 73 65 29 2c ff |sabend(#|false),.|
|00003630| 01 00 ff 09 09 65 72 72 | 6f 72 5f 63 6f 64 65 20 |.....err|or_code |
|00003640| 3a 3d 20 40 77 72 69 74 | 65 66 72 61 6d 65 66 69 |:= @writ|eframefi|
|00003650| 6c 65 28 22 44 45 53 4b | 54 4f 50 2e 24 46 57 22 |le("DESK|TOP.$FW"|
|00003660| 2c 20 44 45 53 4b 54 4f | 50 29 2c ff 01 00 ff 09 |, DESKTO|P),.....|
|00003670| 09 40 69 66 28 40 61 6e | 64 28 65 72 72 6f 72 5f |.@if(@an|d(error_|
|00003680| 63 6f 64 65 20 3d 20 30 | 2c 20 40 6e 6f 74 28 40 |code = 0|, @not(@|
|00003690| 69 73 61 62 65 6e 64 29 | 29 2c ff 01 00 ff 09 09 |isabend)|),......|
|000036a0| 09 40 6c 69 73 74 28 ff | 01 00 ff 09 09 09 09 40 |.@list(.|.......@|
|000036b0| 65 63 68 6f 28 65 63 68 | 6f 29 2c ff 01 00 ff 09 |echo(ech|o),.....|
|000036c0| 09 09 09 40 70 65 72 66 | 6f 72 6d 6b 65 79 73 28 |...@perf|ormkeys(|
|000036d0| 22 7b 64 65 6c 7d 22 29 | 2c ff 01 00 ff 09 09 09 |"{del}")|,.......|
|000036e0| 09 40 6d 65 6d 61 76 61 | 69 6c 2c ff 01 00 ff 09 |.@memava|il,.....|
|000036f0| 09 09 09 40 72 65 74 75 | 72 6e 28 23 74 72 75 65 |...@retu|rn(#true|
|00003700| 29 29 2c ff 01 00 ff 09 | 09 09 40 6c 69 73 74 28 |)),.....|..@list(|
|00003710| ff 01 00 ff 09 09 09 09 | 40 70 65 72 66 6f 72 6d |........|@perform|
|00003720| 6b 65 79 73 28 22 7b 64 | 6e 6c 65 76 65 6c 7d 7b |keys("{d|nlevel}{|
|00003730| 66 37 7d 7b 75 70 6c 65 | 76 65 6c 7d 7b 72 65 74 |f7}{uple|vel}{ret|
|00003740| 75 72 6e 7d 22 29 2c ff | 01 00 ff 09 09 09 09 40 |urn}"),.|.......@|
|00003750| 65 72 61 73 65 70 72 6f | 6d 70 74 2c ff 01 00 ff |erasepro|mpt,....|
|00003760| 09 09 09 09 40 70 72 6f | 6d 70 74 28 22 55 6e 61 |....@pro|mpt("Una|
|00003770| 62 6c 65 20 74 6f 20 73 | 61 76 65 20 44 45 53 4b |ble to s|ave DESK|
|00003780| 54 4f 50 21 2e 2e 2e 3c | 74 79 70 65 20 73 70 61 |TOP!...<|type spa|
|00003790| 63 65 3e 22 29 2c ff 01 | 00 ff 09 09 09 09 40 62 |ce>"),..|......@b|
|000037a0| 65 65 70 2c ff 01 00 ff | 09 09 09 09 40 6e 65 78 |eep,....|....@nex|
|000037b0| 74 6b 65 79 2c ff 01 00 | ff 09 09 09 09 40 65 63 |tkey,...|.....@ec|
|000037c0| 68 6f 28 65 63 68 6f 29 | 2c ff 01 00 ff 09 09 09 |ho(echo)|,.......|
|000037d0| 09 40 72 65 74 75 72 6e | 28 23 66 61 6c 73 65 29 |.@return|(#false)|
|000037e0| 29 29 29 2c ff 01 00 ff | ff 01 00 ff 09 40 72 65 |))),....|.....@re|
|000037f0| 74 75 72 6e 28 23 66 61 | 6c 73 65 29 29 00 ff ff |turn(#fa|lse))...|
|00003800| 03 00 9c 00 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00003810| 68 00 69 00 45 00 00 00 | 80 03 a2 00 86 03 01 00 |h.i.E...|........|
|00003820| 02 00 05 00 0d 01 23 4e | 2f 41 21 00 ff ff ff ff |......#N|/A!.....|
|00003830| 04 00 9e 00 02 00 05 40 | 01 00 01 00 11 00 01 00 |.......@|........|
|00003840| 1e 00 04 00 2e 00 04 00 | 1d 00 03 00 36 00 14 00 |........|....6...|
|00003850| 1d 00 03 00 2f 00 04 00 | 20 00 14 00 84 03 00 00 |..../...| .......|
|00003860| 00 00 00 00 00 00 00 00 | 41 04 01 00 00 41 dc 01 |........|A....A..|
|00003870| 02 00 a0 00 18 82 00 00 | 00 01 00 00 02 00 0f 00 |........|........|
|00003880| 52 65 73 74 6f 72 65 5f | 64 65 73 6b 74 6f 70 00 |Restore_|desktop.|
|00003890| 1d 00 2a 01 18 82 00 00 | 00 01 00 00 02 00 95 01 |..*.....|........|
|000038a0| 3b 20 52 65 73 74 6f 72 | 65 5f 64 65 73 6b 74 6f |; Restor|e_deskto|
|000038b0| 70 ff 01 00 ff ff 01 00 | ff 40 69 66 28 40 69 74 |p.......|.@if(@it|
|000038c0| 65 6d 31 2c ff 01 00 ff | 09 40 6c 69 73 74 28 ff |em1,....|.@list(.|
|000038d0| 01 00 ff 09 09 40 73 65 | 74 73 65 6c 65 63 74 69 |.....@se|tselecti|
|000038e0| 6f 6e 28 22 55 54 49 4c | 22 29 2c ff 01 00 ff 09 |on("UTIL|"),.....|
|000038f0| 09 40 6c 6f 63 61 6c 28 | 65 63 68 6f 2c 20 6f 75 |.@local(|echo, ou|
|00003900| 74 70 75 74 29 2c ff 01 | 00 ff 09 09 65 63 68 6f |tput),..|....echo|
|00003910| 20 3a 3d 20 40 65 63 68 | 6f 28 23 6f 6e 29 2c ff | := @ech|o(#on),.|
|00003920| 01 00 ff 09 09 40 70 65 | 72 66 6f 72 6d 6b 65 79 |.....@pe|rformkey|
|00003930| 73 28 22 7b 63 74 72 6c | 2d 64 7d 67 44 45 53 4b |s("{ctrl|-d}gDESK|
|00003940| 54 4f 50 2e 24 46 57 7b | 72 65 74 75 72 6e 7d 22 |TOP.$FW{|return}"|
|00003950| 29 2c ff 01 00 ff 09 09 | 40 69 66 28 40 73 65 74 |),......|@if(@set|
|00003960| 73 65 6c 65 63 74 69 6f | 6e 20 3d 20 22 44 45 53 |selectio|n = "DES|
|00003970| 4b 54 4f 50 22 2c ff 01 | 00 ff 09 09 09 40 6c 69 |KTOP",..|.....@li|
|00003980| 73 74 28 ff 01 00 ff 09 | 09 09 09 40 70 65 72 66 |st(.....|...@perf|
|00003990| 6f 72 6d 6b 65 79 73 28 | 22 7b 64 6e 6c 65 76 65 |ormkeys(|"{dnleve|
|000039a0| 6c 7d 7b 66 37 7d 7b 75 | 70 6c 65 76 65 6c 7d 7b |l}{f7}{u|plevel}{|
|000039b0| 72 65 74 75 72 6e 7d 22 | 29 2c ff 01 00 ff 09 09 |return}"|),......|
|000039c0| 09 09 40 73 65 74 73 65 | 6c 65 63 74 69 6f 6e 28 |..@setse|lection(|
|000039d0| 22 44 45 53 4b 54 4f 50 | 22 29 2c ff 01 00 ff 09 |"DESKTOP|"),.....|
|000039e0| 09 09 09 40 70 65 72 66 | 6f 72 6d 6b 65 79 73 28 |...@perf|ormkeys(|
|000039f0| 22 7b 64 65 6c 7d 22 29 | 29 29 2c ff 01 00 ff 09 |"{del}")|)),.....|
|00003a00| 09 09 09 40 72 75 6e 28 | 6f 75 74 70 75 74 2c 20 |...@run(|output, |
|00003a10| 40 67 65 74 65 6e 76 28 | 22 43 4f 4d 53 50 45 43 |@getenv(|"COMSPEC|
|00003a20| 22 29 20 26 20 22 20 2f | 43 20 45 52 41 53 45 20 |") & " /|C ERASE |
|00003a30| 44 45 53 4b 54 4f 50 2e | 24 46 57 22 29 2c ff 01 |DESKTOP.|$FW"),..|
|00003a40| 00 ff 09 09 40 65 63 68 | 6f 28 65 63 68 6f 29 29 |....@ech|o(echo))|
|00003a50| 29 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |).......|........|
|00003a60| 03 00 2c 01 08 0a 00 00 | 00 01 00 00 02 00 00 00 |..,.....|........|
|00003a70| 00 00 00 00 00 00 00 00 | a6 03 a2 00 00 00 01 00 |........|........|
|00003a80| 02 00 02 00 0d 01 ac 03 | bc 03 0d 00 0d 00 00 00 |........|........|
|00003a90| 04 00 2e 01 02 00 05 60 | 01 00 03 00 12 00 03 00 |.......`|........|
|00003aa0| 1e 00 06 00 2f 00 06 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00003ab0| 1d 00 05 00 2f 00 06 00 | 1e 00 06 00 aa 03 00 00 |..../...|........|
|00003ac0| 00 00 00 00 00 00 02 00 | 4f 05 01 00 00 4f 2a 02 |........|O....O*.|
|00003ad0| 02 00 30 01 18 82 00 00 | 00 01 00 00 02 00 0c 00 |..0.....|........|
|00003ae0| 50 72 65 70 61 72 65 5f | 6d 65 6e 75 00 ff ff ff |Prepare_|menu....|
|00003af0| 06 00 32 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |..2.....|........|
|00003b00| 00 00 00 00 00 00 00 00 | b2 03 2c 01 b8 03 38 00 |........|..,...8.|
|00003b10| 39 00 37 00 0d 01 28 70 | 72 65 70 61 72 65 20 66 |9.7...(p|repare f|
|00003b20| 6f 72 20 69 6e 74 65 72 | 61 63 74 69 76 65 20 73 |or inter|active s|
|00003b30| 79 73 74 65 6d 73 2c 20 | 65 6c 65 63 74 72 6f 6e |ystems, |electron|
|00003b40| 69 63 20 6d 61 69 6c 2c | 20 65 74 63 29 00 ff ff |ic mail,| etc)...|
|00003b50| 04 00 34 01 02 00 05 60 | 01 00 01 00 10 00 01 00 |..4....`|........|
|00003b60| 1f 00 07 00 2e 00 06 00 | 1e 00 06 00 2f 00 06 00 |........|..../...|
|00003b70| 1e 00 06 00 30 00 07 00 | 1f 00 07 00 b6 03 00 00 |....0...|........|
|00003b80| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f 30 02 |........|O....O0.|
|00003b90| 02 00 36 01 18 82 00 00 | 00 01 00 00 02 00 0b 00 |..6.....|........|
|00003ba0| 54 65 78 74 20 66 6f 72 | 6d 61 74 00 ff ff ff ff |Text for|mat.....|
|00003bb0| 04 00 38 01 18 82 00 00 | 00 01 00 00 02 00 27 00 |..8.....|......'.|
|00003bc0| 55 54 49 4c 2e 50 72 65 | 70 61 72 65 5f 74 79 70 |UTIL.Pre|pare_typ|
|00003bd0| 65 20 3a 3d 20 22 54 45 | 58 54 22 2c ff 01 00 ff |e := "TE|XT",....|
|00003be0| 40 71 75 69 74 6d 65 6e | 75 00 ff ff ff ff ff ff |@quitmen|u.......|
|00003bf0| 06 00 3a 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |..:.....|........|
|00003c00| 00 00 00 00 00 00 00 00 | c2 03 2c 01 c8 03 32 00 |........|..,...2.|
|00003c10| 33 00 31 00 0d 01 28 70 | 72 65 70 61 72 65 20 66 |3.1...(p|repare f|
|00003c20| 6f 72 20 73 65 6e 64 69 | 6e 67 20 74 6f 20 61 6e |or sendi|ng to an|
|00003c30| 6f 74 68 65 72 20 46 52 | 41 4d 45 57 4f 52 4b 20 |other FR|AMEWORK |
|00003c40| 73 79 73 74 65 6d 29 00 | ff ff ff ff ff ff ff ff |system).|........|
|00003c50| 04 00 3c 01 02 00 05 60 | 01 00 01 00 10 00 01 00 |..<....`|........|
|00003c60| 1f 00 07 00 2e 00 06 00 | 1e 00 06 00 2f 00 06 00 |........|..../...|
|00003c70| 1e 00 06 00 30 00 07 00 | 1f 00 07 00 c6 03 00 00 |....0...|........|
|00003c80| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f 38 02 |........|O....O8.|
|00003c90| 02 00 3e 01 18 82 00 00 | 00 01 00 00 02 00 0d 00 |..>.....|........|
|00003ca0| 42 69 6e 61 72 79 20 66 | 6f 72 6d 61 74 00 ff ff |Binary f|ormat...|
|00003cb0| 04 00 40 01 18 82 00 00 | 00 01 00 00 02 00 29 00 |..@.....|......).|
|00003cc0| 55 54 49 4c 2e 50 72 65 | 70 61 72 65 5f 74 79 70 |UTIL.Pre|pare_typ|
|00003cd0| 65 20 3a 3d 20 22 42 49 | 4e 41 52 59 22 2c ff 01 |e := "BI|NARY",..|
|00003ce0| 00 ff 40 71 75 69 74 6d | 65 6e 75 00 ff ff ff ff |..@quitm|enu.....|
|00003cf0| 04 00 42 01 08 0a 00 00 | 00 01 00 00 02 00 00 00 |..B.....|........|
|00003d00| 00 00 00 00 00 00 00 00 | d0 03 a2 00 00 00 01 00 |........|........|
|00003d10| 02 00 05 00 0d 01 d6 03 | e4 03 f2 03 2c 04 57 04 |........|....,.W.|
|00003d20| 0d 00 0d 00 00 00 ff ff | 00 00 ff ff 00 00 ff ff |........|........|
|00003d30| 04 00 44 01 02 00 05 60 | 01 00 05 00 12 00 05 00 |..D....`|........|
|00003d40| 1e 00 08 00 2f 00 08 00 | 1d 00 03 00 36 00 14 00 |..../...|....6...|
|00003d50| 1d 00 07 00 2f 00 08 00 | 1e 00 08 00 d4 03 00 00 |..../...|........|
|00003d60| 0e 00 00 00 00 00 05 00 | 4f 05 01 00 00 4f 40 02 |........|O....O@.|
|00003d70| 02 00 46 01 18 82 00 00 | 00 01 00 00 02 00 0b 00 |..F.....|........|
|00003d80| 55 70 64 61 74 65 5f 6d | 65 6e 75 00 ff ff ff ff |Update_m|enu.....|
|00003d90| 05 00 48 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |..H.....|........|
|00003da0| 00 00 00 00 00 00 00 00 | db 03 42 01 e1 03 01 00 |........|..B.....|
|00003db0| 02 00 1f 00 0d 01 28 6d | 6f 76 65 20 6d 65 6e 75 |......(m|ove menu|
|00003dc0| 20 69 74 65 6d 20 73 65 | 6c 65 63 74 69 6f 6e 20 | item se|lection |
|00003dd0| 75 70 29 20 20 00 ff ff | ff ff ff ff ff ff ff ff |up)  ...|........|
|00003de0| 04 00 4a 01 02 00 05 60 | 01 00 01 00 12 00 01 00 |..J....`|........|
|00003df0| 1f 00 09 00 2f 00 08 00 | 1e 00 08 00 2f 00 08 00 |..../...|..../...|
|00003e00| 1e 00 08 00 30 00 09 00 | 1f 00 09 00 df 03 00 00 |....0...|........|
|00003e10| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f 46 02 |........|O....OF.|
|00003e20| 02 00 4c 01 18 82 00 00 | 00 01 00 00 02 00 01 00 |..L.....|........|
|00003e30| 18 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00003e40| 03 00 4e 01 18 82 00 00 | 00 01 00 00 02 00 19 00 |..N.....|........|
|00003e50| 40 70 65 72 66 6f 72 6d | 6b 65 79 73 28 22 7b 75 |@perform|keys("{u|
|00003e60| 70 61 72 72 6f 77 7d 22 | 29 00 ff ff ff ff ff ff |parrow}"|).......|
|00003e70| 05 00 50 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |..P.....|........|
|00003e80| 00 00 00 00 00 00 00 00 | e9 03 42 01 ef 03 01 00 |........|..B.....|
|00003e90| 02 00 1f 00 0d 01 28 6d | 6f 76 65 20 6d 65 6e 75 |......(m|ove menu|
|00003ea0| 20 69 74 65 6d 20 73 65 | 6c 65 63 74 69 6f 6e 20 | item se|lection |
|00003eb0| 64 6f 77 6e 29 00 ff ff | ff ff ff ff ff ff ff ff |down)...|........|
|00003ec0| 04 00 52 01 02 00 05 60 | 01 00 01 00 12 00 01 00 |..R....`|........|
|00003ed0| 1f 00 09 00 2f 00 08 00 | 1e 00 08 00 2f 00 08 00 |..../...|..../...|
|00003ee0| 1e 00 08 00 30 00 09 00 | 1f 00 09 00 ed 03 00 00 |....0...|........|
|00003ef0| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f 4e 02 |........|O....ON.|
|00003f00| 02 00 54 01 18 82 00 00 | 00 01 00 00 02 00 01 00 |..T.....|........|
|00003f10| 19 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00003f20| 03 00 56 01 18 82 00 00 | 00 01 00 00 02 00 19 00 |..V.....|........|
|00003f30| 40 70 65 72 66 6f 72 6d | 6b 65 79 73 28 22 7b 64 |@perform|keys("{d|
|00003f40| 6e 61 72 72 6f 77 7d 22 | 29 00 ff ff ff ff ff ff |narrow}"|).......|
|00003f50| 05 00 58 01 18 80 00 00 | 00 01 00 00 02 00 01 00 |..X.....|........|
|00003f60| 01 00 1b 00 3c 00 ac 00 | f7 03 42 01 fd 03 13 00 |....<...|..B.....|
|00003f70| 1b 00 1a 00 0d 01 3c 6d | 65 6e 75 20 69 74 65 6d |......<m|enu item|
|00003f80| 20 5b 44 4a 44 45 4d 4f | 5d 20 61 64 64 65 64 3e | [DJDEMO|] added>|
|00003f90| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00003fa0| 04 00 5a 01 02 00 05 60 | 01 00 01 00 12 00 01 00 |..Z....`|........|
|00003fb0| 1f 00 09 00 2f 00 08 00 | 1e 00 08 00 2f 00 08 00 |..../...|..../...|
|00003fc0| 1e 00 08 00 30 00 09 00 | 1f 00 09 00 fb 03 00 00 |....0...|........|
|00003fd0| 00 00 00 00 09 00 00 00 | 4f 04 01 00 00 4f 56 02 |........|O....OV.|
|00003fe0| 02 00 5c 01 18 82 00 00 | 00 01 00 00 02 00 05 00 |..\.....|........|
|00003ff0| 41 64 64 20 20 00 ff ff | ff ff ff ff ff ff ff ff |Add  ...|........|
|00004000| 2f 00 5e 01 18 82 00 00 | 00 01 00 00 02 00 a4 02 |/.^.....|........|
|00004010| 3b 20 41 64 64 ff 01 00 | 7f ff 01 00 ff 40 6c 6f |; Add...|.....@lo|
|00004020| 63 61 6c 28 6e 61 6d 65 | 2c 20 70 61 72 2c 20 6d |cal(name|, par, m|
|00004030| 65 73 73 61 67 65 2c 20 | 66 6f 72 6d 75 6c 61 29 |essage, |formula)|
|00004040| 2c ff 01 00 ff ff 01 00 | ff 40 65 63 68 6f 28 23 |,.......|.@echo(#|
|00004050| 6f 66 66 29 2c ff 01 00 | ff 40 70 65 72 66 6f 72 |off),...|.@perfor|
|00004060| 6d 6b 65 79 73 28 22 7b | 63 74 72 6c 2d 63 7d 65 |mkeys("{|ctrl-c}e|
|00004070| 7b 63 74 72 6c 2d 77 7d | 72 38 30 7b 72 65 74 75 |{ctrl-w}|r80{retu|
|00004080| 72 6e 7d 20 20 7b 72 65 | 74 75 72 6e 7d 22 29 2c |rn}  {re|turn}"),|
|00004090| ff 01 00 ff 40 65 63 68 | 6f 28 23 6f 6e 29 2c ff |....@ech|o(#on),.|
|000040a0| 01 00 ff ff 01 00 ff 6e | 61 6d 65 20 3a 3d 20 40 |.......n|ame := @|
|000040b0| 69 6e 70 75 74 6c 69 6e | 65 28 22 45 6e 74 65 72 |inputlin|e("Enter|
|000040c0| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 69 | the nam|e of thi|
|000040d0| 73 20 6e 65 77 20 6d 65 | 6e 75 20 69 74 65 6d 3b |s new me|nu item;|
|000040e0| 20 20 52 45 54 55 52 4e | 22 2c 2c ff 01 00 ff 09 |  RETURN|",,.....|
|000040f0| 09 09 09 09 23 66 61 6c | 73 65 2c 20 23 74 72 75 |....#fal|se, #tru|
|00004100| 65 2c 20 23 74 72 75 65 | 29 2c ff 01 00 ff 70 61 |e, #true|),....pa|
|00004110| 72 20 3a 3d 20 40 69 6e | 70 75 74 6c 69 6e 65 28 |r := @in|putline(|
|00004120| 22 45 6e 74 65 72 20 74 | 68 65 20 4d 49 54 45 20 |"Enter t|he MITE |
|00004130| 70 61 72 61 6d 65 74 65 | 72 20 66 69 6c 65 20 6e |paramete|r file n|
|00004140| 61 6d 65 20 28 65 67 20 | 4d 49 54 45 2e 50 41 52 |ame (eg |MITE.PAR|
|00004150| 29 3b 20 20 52 45 54 55 | 52 4e 22 2c 2c ff 01 00 |);  RETU|RN",,...|
|00004160| ff 09 09 09 09 09 23 66 | 61 6c 73 65 2c 20 23 74 |......#f|alse, #t|
|00004170| 72 75 65 2c 20 23 74 72 | 75 65 29 2c ff 01 00 ff |rue, #tr|ue),....|
|00004180| 6d 65 73 73 61 67 65 20 | 3a 3d 20 40 69 6e 70 75 |message |:= @inpu|
|00004190| 74 6c 69 6e 65 28 22 45 | 6e 74 65 72 20 74 68 65 |tline("E|nter the|
|000041a0| 20 68 65 6c 70 20 70 72 | 6f 6d 70 74 3b 20 20 52 | help pr|ompt;  R|
|000041b0| 45 54 55 52 4e 22 2c 2c | 20 23 66 61 6c 73 65 2c |ETURN",,| #false,|
|000041c0| 20 23 74 72 75 65 2c 20 | 23 74 72 75 65 29 2c ff | #true, |#true),.|
|000041d0| 01 00 ff ff 01 00 ff 66 | 6f 72 6d 75 6c 61 20 3a |.......f|ormula :|
|000041e0| 3d 20 22 40 55 54 49 4c | 2e 4d 49 54 45 28 22 22 |= "@UTIL|.MITE(""|
|000041f0| 22 20 26 20 70 61 72 20 | 26 20 22 20 47 22 22 29 |" & par |& " G"")|
|00004200| 20 26 20 5b 22 20 26 20 | 6e 61 6d 65 20 26 20 22 | & [" & |name & "|
|00004210| 5d 22 2c ff 01 00 ff 40 | 73 65 74 66 6f 72 6d 75 |]",....@|setformu|
|00004220| 6c 61 28 46 57 54 43 4d | 45 4e 55 2e 5b 20 5d 2c |la(FWTCM|ENU.[ ],|
|00004230| 20 66 6f 72 6d 75 6c 61 | 29 2c ff 01 00 ff ff 01 | formula|),......|
|00004240| 00 ff 40 69 66 28 6d 65 | 73 73 61 67 65 20 3c 3e |..@if(me|ssage <>|
|00004250| 20 22 22 2c ff 01 00 ff | 09 40 73 65 74 28 46 57 | "",....|.@set(FW|
|00004260| 54 43 4d 45 4e 55 2e 5b | 20 5d 2c 20 6d 65 73 73 |TCMENU.[| ], mess|
|00004270| 61 67 65 29 29 2c ff 01 | 00 ff ff 01 00 ff 40 70 |age)),..|......@p|
|00004280| 65 72 66 6f 72 6d 6b 65 | 79 73 28 22 58 7b 62 61 |erformke|ys("X{ba|
|00004290| 63 6b 73 70 61 63 65 7d | 22 20 26 20 6e 61 6d 65 |ckspace}|" & name|
|000042a0| 20 26 20 22 7b 72 65 74 | 75 72 6e 7d 22 29 2c ff | & "{ret|urn}"),.|
|000042b0| 01 00 ff 40 72 65 74 75 | 72 6e 28 22 3c 6d 65 6e |...@retu|rn("<men|
|000042c0| 75 20 69 74 65 6d 20 5b | 22 20 26 20 6e 61 6d 65 |u item [|" & name|
|000042d0| 20 26 20 22 5d 20 61 64 | 64 65 64 3e 22 00 80 29 | & "] ad|ded>"..)|
|000042e0| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000042f0| 05 00 60 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |..`.....|........|
|00004300| 01 00 1c 00 96 01 b4 00 | 31 04 42 01 37 04 01 00 |........|1.B.7...|
|00004310| 1c 00 1b 00 0d 01 28 44 | 65 6c 65 74 65 20 73 65 |......(D|elete se|
|00004320| 6c 65 63 74 65 64 20 6d | 65 6e 75 20 69 74 65 6d |lected m|enu item|
|00004330| 29 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |).......|........|
|00004340| 04 00 62 01 02 00 05 60 | 01 00 01 00 12 00 01 00 |..b....`|........|
|00004350| 1f 00 09 00 2f 00 08 00 | 1e 00 08 00 2f 00 08 00 |..../...|..../...|
|00004360| 1e 00 08 00 30 00 09 00 | 1f 00 09 00 35 04 00 00 |....0...|....5...|
|00004370| 00 00 00 00 09 00 00 00 | 4f 04 01 00 00 4f 5e 02 |........|O....O^.|
|00004380| 02 00 64 01 18 82 00 00 | 00 01 00 00 02 00 08 00 |..d.....|........|
|00004390| 44 65 6c 65 74 65 20 20 | 00 ff ff ff ff ff ff ff |Delete  |........|
|000043a0| 20 00 66 01 18 82 00 00 | 00 01 00 00 02 00 bd 01 | .f.....|........|
|000043b0| 3b 20 44 65 6c 65 74 65 | ff 01 00 ff ff 01 00 ff |; Delete|........|
|000043c0| 40 6c 6f 63 61 6c 28 6e | 61 6d 65 29 2c ff 01 00 |@local(n|ame),...|
|000043d0| ff ff 01 00 ff 6e 61 6d | 65 20 3a 3d 20 40 73 65 |.....nam|e := @se|
|000043e0| 74 73 65 6c 65 63 74 69 | 6f 6e 2c ff 01 00 ff ff |tselecti|on,.....|
|000043f0| 01 00 ff 3b 20 63 68 65 | 63 6b 20 66 6f 72 20 74 |...; che|ck for t|
|00004400| 6f 6f 20 6d 61 6e 79 20 | 64 65 6c 65 74 69 6f 6e |oo many |deletion|
|00004410| 73 ff 01 00 ff 40 69 66 | 28 40 6c 65 6e 28 6e 61 |s....@if|(@len(na|
|00004420| 6d 65 29 20 3c 20 31 30 | 2c ff 01 00 ff 09 40 6c |me) < 10|,.....@l|
|00004430| 69 73 74 28 ff 01 00 ff | 09 09 40 71 75 69 74 6d |ist(....|..@quitm|
|00004440| 65 6e 75 2c ff 01 00 ff | 09 09 40 72 65 74 75 72 |enu,....|..@retur|
|00004450| 6e 28 30 29 29 29 2c ff | 01 00 ff ff 01 00 ff 6e |n(0))),.|.......n|
|00004460| 61 6d 65 20 3a 3d 20 40 | 6d 69 64 28 6e 61 6d 65 |ame := @|mid(name|
|00004470| 2c 20 31 30 2c 20 40 6c | 65 6e 28 6e 61 6d 65 29 |, 10, @l|en(name)|
|00004480| 20 2d 20 39 29 2c ff 01 | 00 ff ff 01 00 ff 40 65 | - 9),..|......@e|
|00004490| 72 61 73 65 70 72 6f 6d | 70 74 2c ff 01 00 ff 40 |raseprom|pt,....@|
|000044a0| 70 72 6f 6d 70 74 28 22 | 20 20 20 20 20 20 20 20 |prompt("|        |
|000044b0| 20 20 20 20 20 20 20 20 | 20 20 20 44 65 6c 65 74 |        |   Delet|
|000044c0| 65 20 6d 65 6e 75 20 69 | 74 65 6d 20 5b 22 20 26 |e menu i|tem [" &|
|000044d0| 20 6e 61 6d 65 20 26 20 | 22 5d 20 28 79 2f 6e 29 | name & |"] (y/n)|
|000044e0| 3f 22 29 2c ff 01 00 ff | 40 62 65 65 70 2c ff 01 |?"),....|@beep,..|
|000044f0| 00 ff ff 01 00 ff 40 6e | 65 78 74 6b 65 79 2c ff |......@n|extkey,.|
|00004500| 01 00 ff 40 69 66 28 40 | 6f 72 28 40 6b 65 79 20 |...@if(@|or(@key |
|00004510| 3d 20 7b 79 7d 2c 20 40 | 6b 65 79 20 3d 20 7b 59 |= {y}, @|key = {Y|
|00004520| 7d 29 2c ff 01 00 ff 09 | 40 6c 69 73 74 28 ff 01 |}),.....|@list(..|
|00004530| 00 ff 09 09 40 70 65 72 | 66 6f 72 6d 6b 65 79 73 |....@per|formkeys|
|00004540| 28 22 7b 64 65 6c 7d 22 | 29 2c ff 01 00 ff 09 09 |("{del}"|),......|
|00004550| 40 72 65 74 75 72 6e 28 | 22 3c 4d 65 6e 75 20 69 |@return(|"<Menu i|
|00004560| 74 65 6d 20 5b 22 20 26 | 20 6e 61 6d 65 20 26 20 |tem [" &| name & |
|00004570| 22 5d 20 64 65 6c 65 74 | 65 64 3e 22 29 29 2c ff |"] delet|ed>")),.|
|00004580| 01 00 ff 09 40 72 65 74 | 75 72 6e 28 22 3c 63 61 |....@ret|urn("<ca|
|00004590| 6e 63 65 6c 6c 65 64 3e | 22 29 29 00 ff ff ff ff |ncelled>|")).....|
|000045a0| 05 00 68 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |..h.....|........|
|000045b0| 00 00 00 00 00 00 00 00 | 5c 04 42 01 62 04 01 00 |........|\.B.b...|
|000045c0| 02 00 25 00 0d 01 28 63 | 68 61 6e 67 65 73 20 77 |..%...(c|hanges w|
|000045d0| 69 6c 6c 20 62 65 20 73 | 61 76 65 64 2c 20 45 53 |ill be s|aved, ES|
|000045e0| 43 20 74 6f 20 61 62 6f | 72 74 29 00 ff ff ff ff |C to abo|rt).....|
|000045f0| 04 00 6a 01 02 00 05 60 | 01 00 01 00 12 00 01 00 |..j....`|........|
|00004600| 1f 00 09 00 2f 00 08 00 | 1e 00 08 00 2f 00 08 00 |..../...|..../...|
|00004610| 1e 00 08 00 30 00 09 00 | 1f 00 09 00 60 04 00 00 |....0...|....`...|
|00004620| 00 00 00 00 09 00 00 00 | 4f 04 01 00 00 4f 66 02 |........|O....Of.|
|00004630| 02 00 6c 01 18 82 00 00 | 00 01 00 00 02 00 0f 00 |..l.....|........|
|00004640| 45 78 69 74 20 61 6e 64 | 20 53 61 76 65 20 20 00 |Exit and| Save  .|
|00004650| 09 00 6e 01 18 82 00 00 | 00 01 00 00 02 00 71 00 |..n.....|......q.|
|00004660| 3b 20 45 78 69 74 20 61 | 6e 64 20 53 61 76 65 ff |; Exit a|nd Save.|
|00004670| 01 00 ff ff 01 00 ff 40 | 73 65 74 73 65 6c 65 63 |.......@|setselec|
|00004680| 74 69 6f 6e 28 22 46 57 | 54 43 4d 45 4e 55 22 29 |tion("FW|TCMENU")|
|00004690| 2c ff 01 00 ff 40 70 65 | 72 66 6f 72 6d 6b 65 79 |,....@pe|rformkey|
|000046a0| 73 28 22 7b 63 74 72 6c | 2d 72 65 74 75 72 6e 7d |s("{ctrl|-return}|
|000046b0| 22 29 2c ff 01 00 ff ff | 01 00 ff 40 73 65 74 28 |"),.....|...@set(|
|000046c0| 53 74 61 79 5f 69 6e 2c | 20 23 74 72 75 65 29 2c |Stay_in,| #true),|
|000046d0| ff 01 00 ff 40 71 75 69 | 74 6d 65 6e 75 00 ff ff |....@qui|tmenu...|
|000046e0| 04 00 70 01 08 0a 00 00 | 00 01 00 00 02 00 00 00 |..p.....|........|
|000046f0| 00 00 00 00 00 00 00 00 | 6f 04 a2 00 00 00 05 00 |........|o.......|
|00004700| 06 00 09 00 0d 01 75 04 | 86 04 a4 04 b5 04 c6 04 |......u.|........|
|00004710| d4 04 e4 04 f1 04 fd 04 | 0d 00 0d 00 00 00 00 00 |........|........|
|00004720| 04 00 72 01 02 00 05 40 | 01 00 07 00 13 00 10 00 |..r....@|........|
|00004730| 1e 00 0a 00 30 00 13 00 | 1d 00 03 00 36 00 14 00 |....0...|....6...|
|00004740| 1d 00 09 00 2f 00 0a 00 | 1e 00 0a 00 73 04 00 00 |..../...|....s...|
|00004750| 04 00 00 00 05 00 06 00 | 41 08 01 00 00 41 6e 02 |........|A....An.|
|00004760| 02 00 74 01 18 82 00 00 | 00 01 00 00 02 00 0f 00 |..t.....|........|
|00004770| 50 72 65 64 65 66 69 6e | 65 64 5f 6d 65 6e 75 00 |Predefin|ed_menu.|
|00004780| 08 00 76 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |..v.....|........|
|00004790| 01 00 50 00 00 00 48 01 | 7d 04 70 01 84 04 01 00 |..P...H.|}.p.....|
|000047a0| 02 00 4f 00 0d 01 28 70 | 72 65 70 61 72 65 20 64 |..O...(p|repare d|
|000047b0| 65 73 6b 74 6f 70 20 66 | 72 61 6d 65 73 20 66 6f |esktop f|rames fo|
|000047c0| 72 20 63 6f 6d 6d 75 6e | 69 63 61 74 69 6f 6e 29 |r commun|ication)|
|000047d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047f0| 20 20 20 20 20 00 ff ff | ff ff ff ff ff ff ff ff |     ...|........|
|00004800| 04 00 78 01 02 00 05 40 | 01 00 01 00 11 00 01 00 |..x....@|........|
|00004810| 1f 00 0b 00 2f 00 0b 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|00004820| 1e 00 0a 00 36 00 0b 00 | 1f 00 0b 00 81 04 00 00 |....6...|........|
|00004830| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f b4 04 |........|O....O..|
|00004840| 03 00 7a 01 18 82 00 00 | 00 01 00 00 02 00 15 00 |..z.....|........|
|00004850| 50 72 65 70 61 72 65 20 | 46 72 61 6d 65 20 74 6f |Prepare |Frame to|
|00004860| 20 53 65 6e 64 00 ff ff | ff ff ff ff ff ff ff ff | Send...|........|
|00004870| 02 00 7c 01 18 82 00 00 | 00 01 00 00 02 00 0d 00 |..|.....|........|
|00004880| 40 55 54 49 4c 2e 50 72 | 65 70 61 72 65 00 ff ff |@UTIL.Pr|epare...|
|00004890| 08 00 7e 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |..~.....|........|
|000048a0| 00 00 00 00 00 00 00 00 | 8e 04 70 01 94 04 01 00 |........|..p.....|
|000048b0| 02 00 4f 00 0d 01 28 70 | 6c 61 63 65 20 46 72 61 |..O...(p|lace Fra|
|000048c0| 6d 65 77 6f 72 6b 20 69 | 6e 20 61 75 74 6f 2d 61 |mework i|n auto-a|
|000048d0| 6e 73 77 65 72 20 6d 6f | 64 65 29 20 20 20 20 20 |nswer mo|de)     |
|000048e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004900| 20 20 20 20 20 00 ff ff | ff ff ff ff ff ff ff ff |     ...|........|
|00004910| 04 00 80 01 02 00 05 40 | 01 00 03 00 11 00 03 00 |.......@|........|
|00004920| 1f 00 0d 00 2f 00 0d 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|00004930| 1e 00 0c 00 30 00 0d 00 | 1f 00 0d 00 92 04 00 00 |....0...|........|
|00004940| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f bc 04 |........|O....O..|
|00004950| 02 00 82 01 18 82 00 00 | 00 01 00 00 02 00 06 00 |........|........|
|00004960| 41 6e 73 77 65 72 00 ff | ff ff ff ff ff ff ff ff |Answer..|........|
|00004970| 10 00 84 01 18 82 00 00 | 00 01 00 00 02 00 d1 00 |........|........|
|00004980| 3b 20 41 6e 73 77 65 72 | ff 01 00 ff ff 01 00 ff |; Answer|........|
|00004990| 3b 20 72 65 6e 61 6d 65 | 20 74 65 6d 70 6f 72 61 |; rename| tempora|
|000049a0| 72 79 20 66 69 6c 65 73 | ff 01 00 ff 40 6c 6f 63 |ry files|....@loc|
|000049b0| 61 6c 28 6f 75 74 70 75 | 74 29 2c ff 01 00 ff 40 |al(outpu|t),....@|
|000049c0| 72 75 6e 28 6f 75 74 70 | 75 74 2c 20 40 67 65 74 |run(outp|ut, @get|
|000049d0| 65 6e 76 28 22 43 4f 4d | 53 50 45 43 22 29 20 26 |env("COM|SPEC") &|
|000049e0| 20 22 20 2f 43 20 52 45 | 4e 41 4d 45 20 2a 2e 46 | " /C RE|NAME *.F|
|000049f0| 24 3f 20 2a 2e 46 57 3f | 22 29 2c ff 01 00 ff ff |$? *.FW?|"),.....|
|00004a00| 01 00 ff 40 55 54 49 4c | 2e 4d 49 54 45 28 22 41 |...@UTIL|.MITE("A|
|00004a10| 4e 53 57 45 52 2e 50 41 | 52 20 47 22 29 2c ff 01 |NSWER.PA|R G"),..|
|00004a20| 00 ff ff 01 00 ff 40 72 | 75 6e 28 6f 75 74 70 75 |......@r|un(outpu|
|00004a30| 74 2c 20 40 67 65 74 65 | 6e 76 28 22 43 4f 4d 53 |t, @gete|nv("COMS|
|00004a40| 50 45 43 22 29 20 26 20 | 22 20 2f 43 20 52 45 4e |PEC") & |" /C REN|
|00004a50| 41 4d 45 20 2a 2e 46 24 | 3f 20 2a 2e 46 57 3f 22 |AME *.F$|? *.FW?"|
|00004a60| 29 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |).......|........|
|00004a70| 08 00 86 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00004a80| 00 00 00 00 00 00 00 00 | ac 04 70 01 b3 04 01 00 |........|..p.....|
|00004a90| 02 00 4f 00 0d 01 28 61 | 64 64 20 6f 72 20 64 65 |..O...(a|dd or de|
|00004aa0| 6c 65 74 65 20 69 74 65 | 6d 73 20 66 72 6f 6d 20 |lete ite|ms from |
|00004ab0| 74 68 69 73 20 6d 65 6e | 75 29 20 20 20 20 20 20 |this men|u)      |
|00004ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ae0| 20 20 20 20 20 00 ff ff | ff ff ff ff ff ff ff ff |     ...|........|
|00004af0| 04 00 88 01 02 00 05 40 | 01 00 05 00 11 00 05 00 |.......@|........|
|00004b00| 1f 00 0f 00 2f 00 0f 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|00004b10| 1e 00 0e 00 31 00 0f 00 | 1f 00 0f 00 b0 04 00 00 |....1...|........|
|00004b20| 00 00 00 00 00 00 00 00 | 4f 04 01 00 00 4f c4 04 |........|O....O..|
|00004b30| 03 00 8a 01 18 82 00 00 | 00 01 00 00 02 00 10 00 |........|........|
|00004b40| 55 70 64 61 74 65 20 74 | 68 69 73 20 6d 65 6e 75 |Update t|his menu|
|00004b50| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004b60| 02 00 8c 01 18 82 00 00 | 00 01 00 00 02 00 0c 00 |........|........|
|00004b70| 40 55 54 49 4c 2e 55 70 | 64 61 74 65 00 ff ff ff |@UTIL.Up|date....|
|00004b80| 08 00 8e 01 18 80 00 00 | 00 01 00 00 02 00 05 00 |........|........|
|00004b90| 02 00 06 00 44 00 00 00 | bd 04 70 01 c3 04 01 00 |....D...|..p.....|
|00004ba0| 02 00 4f 00 0d 01 28 61 | 63 63 65 73 73 20 74 68 |..O...(a|ccess th|
|00004bb0| 65 20 6d 61 69 6e 20 6d | 65 6e 75 20 6f 66 20 4d |e main m|enu of M|
|00004bc0| 49 54 45 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |ITE)    |        |
|00004bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004bf0| 20 20 20 20 20 00 ff ff | ff ff ff ff ff ff ff ff |     ...|........|
|00004c00| 04 00 90 01 02 00 07 40 | 01 00 07 00 11 00 07 00 |.......@|........|
|00004c10| 1f 00 11 00 2f 00 11 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|00004c20| 1e 00 10 00 30 00 12 00 | 1f 00 11 00 c1 04 00 00 |....0...|........|
|00004c30| 00 00 00 00 09 00 00 00 | 4f 04 01 00 00 4f cc 04 |........|O....O..|
|00004c40| 02 00 92 01 18 82 00 00 | 00 01 00 00 02 00 0e 00 |........|........|
|00004c50| 4d 49 54 45 20 6d 61 69 | 6e 20 6d 65 6e 75 00 ff |MITE mai|n menu..|
|00004c60| 03 00 94 01 18 82 00 00 | 00 01 00 00 02 00 16 00 |........|........|
|00004c70| 40 55 54 49 4c 2e 4d 49 | 54 45 28 22 4d 49 54 45 |@UTIL.MI|TE("MITE|
|00004c80| 2e 50 41 52 22 29 00 ff | ff ff ff ff ff ff ff ff |.PAR")..|........|
|00004c90| 05 00 96 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00004ca0| 00 00 00 00 00 00 00 00 | cb 04 70 01 d1 04 25 00 |........|..p...%.|
|00004cb0| 26 00 24 00 0d 01 28 61 | 63 63 65 73 73 20 74 68 |&.$...(a|ccess th|
|00004cc0| 65 20 6d 61 69 6e 20 6d | 65 6e 75 20 6f 66 20 57 |e main m|enu of W|
|00004cd0| 6f 72 64 73 74 61 72 29 | ff 01 00 4f 00 ff ff ff |ordstar)|...O....|
|00004ce0| 04 00 98 01 02 00 07 40 | 01 00 01 00 11 00 08 00 |.......@|........|
|00004cf0| 1f 00 0b 00 2f 00 12 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|00004d00| 1e 00 0a 00 30 00 13 00 | 1f 00 0b 00 cf 04 00 00 |....0...|........|
|00004d10| 00 00 01 00 00 00 00 00 | 4f 04 00 00 00 4f d4 04 |........|O....O..|
|00004d20| 02 00 9a 01 18 82 00 00 | 00 01 00 00 02 00 08 00 |........|........|
|00004d30| 57 6f 72 64 53 74 61 72 | 00 ff ff ff ff ff ff ff |WordStar|........|
|00004d40| 03 00 9c 01 18 82 00 00 | 00 01 00 00 02 00 10 00 |........|........|
|00004d50| 40 75 74 69 6c 2e 57 6f | 72 64 53 74 61 72 ff 01 |@util.Wo|rdStar..|
|00004d60| 00 ff 00 ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004d70| 07 00 9e 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00004d80| 00 00 00 00 00 00 00 00 | db 04 70 01 e2 04 3d 00 |........|..p...=.|
|00004d90| 3e 00 3f 00 0d 01 28 61 | 63 63 65 73 73 20 4d 61 |>.?...(a|ccess Ma|
|00004da0| 6e 61 67 65 20 59 6f 75 | 72 20 4d 6f 6e 65 79 20 |nage You|r Money |
|00004db0| 2d 20 72 65 71 75 69 72 | 65 73 20 6d 61 73 74 65 |- requir|es maste|
|00004dc0| 72 20 64 69 73 6b 20 69 | 6e 20 44 72 69 76 65 20 |r disk i|n Drive |
|00004dd0| 41 3a 29 ff 01 00 4f 00 | ff ff ff ff ff ff ff ff |A:)...O.|........|
|00004de0| 04 00 a0 01 02 00 07 40 | 01 00 01 00 11 00 08 00 |.......@|........|
|00004df0| 1f 00 0b 00 2f 00 12 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|00004e00| 1e 00 0a 00 30 00 13 00 | 1f 00 0b 00 df 04 00 00 |....0...|........|
|00004e10| 00 00 00 00 00 00 00 00 | 4f 04 00 00 00 4f dc 04 |........|O....O..|
|00004e20| 03 00 a2 01 18 82 00 00 | 00 01 00 00 02 00 11 00 |........|........|
|00004e30| 4d 61 6e 61 67 65 20 59 | 6f 75 72 20 4d 6f 6e 65 |Manage Y|our Mone|
|00004e40| 79 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |y.......|........|
|00004e50| 02 00 a4 01 18 82 00 00 | 00 01 00 00 02 00 0d 00 |........|........|
|00004e60| 40 75 74 69 6c 2e 4d 4f | 4e 45 59 ff 01 00 ff 00 |@util.MO|NEY.....|
|00004e70| 04 00 a6 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00004e80| 00 00 00 00 00 00 00 00 | e8 04 70 01 ee 04 14 00 |........|..p.....|
|00004e90| 15 00 16 00 0d 01 28 61 | 63 63 65 73 73 20 50 43 |......(a|ccess PC|
|00004ea0| 2d 54 61 6c 6b 20 49 49 | 49 29 ff 01 00 4f 00 ff |-Talk II|I)...O..|
|00004eb0| 04 00 a8 01 02 00 07 40 | 01 00 01 00 11 00 08 00 |.......@|........|
|00004ec0| 1f 00 0b 00 2f 00 12 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|00004ed0| 1e 00 0a 00 30 00 13 00 | 1f 00 0b 00 ec 04 00 00 |....0...|........|
|00004ee0| 00 00 00 00 00 00 00 00 | 4f 04 00 00 00 4f e4 04 |........|O....O..|
|00004ef0| 02 00 aa 01 18 82 00 00 | 00 01 00 00 02 00 0b 00 |........|........|
|00004f00| 50 43 2d 54 61 6c 6b 20 | 49 49 49 00 ff ff ff ff |PC-Talk |III.....|
|00004f10| 03 00 ac 01 18 82 00 00 | 00 01 00 00 02 00 0e 00 |........|........|
|00004f20| 40 75 74 69 6c 2e 50 43 | 54 41 4c 4b ff 01 00 ff |@util.PC|TALK....|
|00004f30| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00004f40| 04 00 ae 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00004f50| 00 00 00 00 00 00 00 00 | f5 04 70 01 fb 04 14 00 |........|..p.....|
|00004f60| 15 00 16 00 0d 01 28 61 | 63 63 65 73 73 20 53 6d |......(a|ccess Sm|
|00004f70| 61 72 74 43 6f 6d 20 49 | 49 29 ff 01 00 4f 00 ff |artCom I|I)...O..|
|00004f80| 04 00 b0 01 02 00 07 40 | 01 00 01 00 11 00 08 00 |.......@|........|
|00004f90| 1f 00 0b 00 2f 00 12 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|00004fa0| 1e 00 0a 00 30 00 13 00 | 1f 00 0b 00 f9 04 00 00 |....0...|........|
|00004fb0| 00 00 00 00 00 00 00 00 | 4f 04 00 00 00 4f ec 04 |........|O....O..|
|00004fc0| 02 00 b2 01 18 82 00 00 | 00 01 00 00 02 00 0c 00 |........|........|
|00004fd0| 53 6d 61 72 74 20 43 6f | 6d 20 49 49 00 ff ff ff |Smart Co|m II....|
|00004fe0| 02 00 b4 01 18 82 00 00 | 00 01 00 00 02 00 0c 00 |........|........|
|00004ff0| 40 75 74 69 6c 2e 53 43 | 4f 4d ff 01 00 ff 00 ff |@util.SC|OM......|
|00005000| 08 00 b6 01 18 80 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00005010| 00 00 00 00 00 00 00 00 | 05 05 70 01 0b 05 19 00 |........|..p.....|
|00005020| 1a 00 4e 00 0d 01 28 65 | 78 69 74 20 45 78 74 65 |..N...(e|xit Exte|
|00005030| 72 6e 61 6c 20 50 72 6f | 67 72 61 6d 73 20 5b 74 |rnal Pro|grams [t|
|00005040| 65 6d 70 6f 72 61 72 79 | 20 66 69 6c 65 73 20 77 |emporary| files w|
|00005050| 69 6c 6c 20 62 65 20 64 | 65 6c 65 74 65 64 5d 29 |ill be d|eleted])|
|00005060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005070| 20 20 20 20 00 ff ff ff | ff ff ff ff ff ff ff ff |    ....|........|
|00005080| 04 00 b8 01 02 00 07 40 | 01 00 08 00 11 00 08 00 |.......@|........|
|00005090| 1f 00 12 00 2f 00 12 00 | 1e 00 0a 00 30 00 13 00 |..../...|....0...|
|000050a0| 1e 00 11 00 30 00 13 00 | 1f 00 12 00 09 05 00 00 |....0...|........|
|000050b0| 00 00 00 00 09 00 00 00 | 4f 04 01 00 00 4f f4 04 |........|O....O..|
|000050c0| 02 00 ba 01 18 82 00 00 | 00 01 00 00 02 00 04 00 |........|........|
|000050d0| 45 78 69 74 00 ff ff ff | ff ff ff ff ff ff ff ff |Exit....|........|
|000050e0| 02 00 bc 01 18 82 00 00 | 00 01 00 00 02 00 09 00 |........|........|
|000050f0| 40 71 75 69 74 6d 65 6e | 75 00 ff ff ff ff ff ff |@quitmen|u.......|
|00005100| 03 00 be 01 08 0a 00 00 | 00 01 00 00 02 00 00 00 |........|........|
|00005110| 00 00 00 00 00 00 00 00 | 10 05 a2 00 16 05 01 00 |........|........|
|00005120| 02 00 02 00 0d 01 1c 05 | 5d 05 0d 00 0d 00 0d 00 |........|].......|
|00005130| 04 00 c0 01 02 00 05 40 | 01 00 10 00 13 00 13 00 |.......@|........|
|00005140| 1e 00 13 00 30 00 14 00 | 1d 00 03 00 36 00 14 00 |....0...|....6...|
|00005150| 1d 00 12 00 2f 00 13 00 | 1e 00 13 00 14 05 00 00 |..../...|........|
|00005160| 0d 00 00 00 02 00 00 00 | 41 08 01 00 00 41 9c 02 |........|A....A..|
|00005170| 02 00 c2 01 18 82 00 00 | 00 01 00 00 02 00 06 00 |........|........|
|00005180| 44 4a 44 45 4d 4f 00 ff | ff ff ff ff ff ff ff ff |DJDEMO..|........|
|00005190| 06 00 c4 01 18 82 00 00 | 00 01 00 00 02 00 44 00 |........|......D.|
|000051a0| 3b 20 44 6f 77 20 4a 6f | 6e 65 73 20 44 65 6d 6f |; Dow Jo|nes Demo|
|000051b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 30 36 2f |        |     06/|
|000051c0| 32 37 2f 38 34 20 20 44 | 61 76 69 64 20 48 65 6c |27/84  D|avid Hel|
|000051d0| 6d 73 20 61 6e 64 20 42 | 72 69 61 6e 20 52 75 73 |ms and B|rian Rus|
|000051e0| 73 65 6c 6c 00 ff ff ff | ff ff ff ff ff ff ff ff |sell....|........|
|000051f0| 03 00 c6 01 08 00 00 00 | 00 01 00 00 02 01 1a 00 |........|........|
|00005200| d7 10 cd 3d be 01 00 01 | 1f 05 be 01 25 05 01 00 |...=....|....%...|
|00005210| 05 00 04 00 0d 01 23 00 | 4f 00 46 00 46 00 0d 00 |......#.|O.F.F...|
|00005220| 04 00 c8 01 02 00 05 40 | 01 00 01 00 19 00 01 00 |.......@|........|
|00005230| 1f 00 14 00 30 00 14 00 | 1e 00 13 00 30 00 14 00 |....0...|....0...|
|00005240| 1e 00 13 00 30 00 14 00 | 1f 00 14 00 23 05 00 00 |....0...|....#...|
|00005250| 00 00 00 00 04 00 00 00 | 41 04 01 00 00 41 a4 02 |........|A....A..|
|00005260| 02 00 ca 01 18 82 00 00 | 00 01 00 00 02 00 04 00 |........|........|
|00005270| 6d 61 69 6e 00 ff ff ff | ff ff ff ff ff ff ff ff |main....|........|
|00005280| 38 00 cc 01 18 82 00 00 | 00 01 00 00 02 00 36 03 |8.......|......6.|
|00005290| 3b 20 4d 61 69 6e ff 01 | 00 ff ff 01 00 ff 40 73 |; Main..|......@s|
|000052a0| 65 74 73 65 6c 65 63 74 | 69 6f 6e 28 22 55 54 49 |etselect|ion("UTI|
|000052b0| 4c 22 29 2c ff 01 00 ff | ff 01 00 ff 40 6c 6f 63 |L"),....|....@loc|
|000052c0| 61 6c 28 65 63 68 6f 29 | 2c ff 01 00 ff 65 63 68 |al(echo)|,....ech|
|000052d0| 6f 20 3a 3d 20 40 65 63 | 68 6f 28 23 6f 6e 29 2c |o := @ec|ho(#on),|
|000052e0| ff 01 00 ff ff 01 00 ff | 3b 20 67 65 74 20 74 68 |........|; get th|
|000052f0| 65 20 71 75 6f 74 65 73 | ff 01 00 ff 40 70 65 72 |e quotes|....@per|
|00005300| 66 6f 72 6d 6b 65 79 73 | 28 22 7b 63 74 72 6c 2d |formkeys|("{ctrl-|
|00005310| 64 7d 67 44 4a 51 55 4f | 54 45 53 2e 54 4d 50 7b |d}gDJQUO|TES.TMP{|
|00005320| 72 65 74 75 72 6e 7d 22 | 29 2c ff 01 00 ff 40 70 |return}"|),....@p|
|00005330| 65 72 66 6f 72 6d 6b 65 | 79 73 28 22 7b 63 74 72 |erformke|ys("{ctr|
|00005340| 6c 2d 6c 7d 73 20 44 41 | 54 45 7b 72 65 74 75 72 |l-l}s DA|TE{retur|
|00005350| 6e 7d 7b 65 6e 64 7d 7b | 66 36 7d 7b 63 74 72 6c |n}{end}{|f6}{ctrl|
|00005360| 2d 68 6f 6d 65 7d 7b 64 | 65 6c 7d 7b 75 70 6c 65 |-home}{d|el}{uple|
|00005370| 76 65 6c 7d 22 29 2c ff | 01 00 ff ff 01 00 ff 3b |vel}"),.|.......;|
|00005380| 20 63 72 65 61 74 65 20 | 61 20 67 72 61 70 68 20 | create |a graph |
|00005390| 28 49 42 4d 20 31 39 38 | 33 29 20 61 6e 64 20 61 |(IBM 198|3) and a|
|000053a0| 20 65 6d 70 74 79 20 73 | 70 72 65 61 64 73 68 65 | empty s|preadshe|
|000053b0| 65 74 20 28 44 4a 53 53 | 29 ff 01 00 ff 40 70 65 |et (DJSS|)....@pe|
|000053c0| 72 66 6f 72 6d 6b 65 79 | 73 28 22 7b 63 74 72 6c |rformkey|s("{ctrl|
|000053d0| 2d 63 7d 65 49 42 4d 20 | 31 39 38 33 7b 72 65 74 |-c}eIBM |1983{ret|
|000053e0| 75 72 6e 7d 22 29 2c ff | 01 00 ff 40 70 65 72 66 |urn}"),.|...@perf|
|000053f0| 6f 72 6d 6b 65 79 73 28 | 22 7b 63 74 72 6c 2d 63 |ormkeys(|"{ctrl-c|
|00005400| 7d 73 44 4a 53 53 7b 72 | 65 74 75 72 6e 7d 7b 66 |}sDJSS{r|eturn}{f|
|00005410| 34 7d 7b 64 6e 61 72 72 | 6f 77 7d 7b 64 6e 61 72 |4}{dnarr|ow}{dnar|
|00005420| 72 6f 77 7d 7b 64 6e 61 | 72 72 6f 77 7d 7b 72 65 |row}{dna|rrow}{re|
|00005430| 74 75 72 6e 7d 22 29 2c | ff 01 00 ff ff 01 00 ff |turn}"),|........|
|00005440| 3b 20 72 65 61 64 20 71 | 75 6f 74 65 73 20 66 72 |; read q|uotes fr|
|00005450| 6f 6d 20 74 68 65 20 66 | 72 61 6d 65 20 44 4a 51 |om the f|rame DJQ|
|00005460| 55 4f 54 45 53 ff 01 00 | ff 40 69 66 28 40 69 73 |UOTES...|.@if(@is|
|00005470| 65 72 72 28 40 74 72 61 | 6e 73 66 65 72 28 44 4a |err(@tra|nsfer(DJ|
|00005480| 51 55 4f 54 45 53 2c 44 | 4a 53 53 29 29 2c ff 01 |QUOTES,D|JSS)),..|
|00005490| 00 ff 09 40 72 65 74 75 | 72 6e 28 22 42 61 64 20 |...@retu|rn("Bad |
|000054a0| 63 68 61 72 61 63 74 65 | 72 20 69 6e 20 44 4a 51 |characte|r in DJQ|
|000054b0| 55 4f 54 45 53 22 29 29 | 2c ff 01 00 ff ff 01 00 |UOTES"))|,.......|
|000054c0| ff 3b 20 64 72 61 77 20 | 61 20 67 72 61 70 68 20 |.; draw |a graph |
|000054d0| 6f 66 20 74 68 65 20 71 | 75 6f 74 65 73 ff 01 00 |of the q|uotes...|
|000054e0| ff 40 70 65 72 66 6f 72 | 6d 6b 65 79 73 28 22 7b |.@perfor|mkeys("{|
|000054f0| 64 6e 6c 65 76 65 6c 7d | 7b 63 74 72 6c 2d 68 6f |dnlevel}|{ctrl-ho|
|00005500| 6d 65 7d 7b 72 69 67 68 | 74 61 72 72 6f 77 7d 7b |me}{righ|tarrow}{|
|00005510| 64 6e 61 72 72 6f 77 7d | 22 20 26 ff 01 00 ff 09 |dnarrow}|" &.....|
|00005520| 09 20 20 20 22 7b 66 36 | 7d 7b 63 74 72 6c 2d 72 |.   "{f6|}{ctrl-r|
|00005530| 69 67 68 74 61 72 72 6f | 77 7d 7b 6c 65 66 74 61 |ightarro|w}{lefta|
|00005540| 72 72 6f 77 7d 7b 63 74 | 72 6c 2d 64 6e 61 72 72 |rrow}{ct|rl-dnarr|
|00005550| 6f 77 7d 7b 72 65 74 75 | 72 6e 7d 22 20 26 ff 01 |ow}{retu|rn}" &..|
|00005560| 00 ff 09 09 20 20 20 22 | 7b 63 74 72 6c 2d 67 7d |....   "|{ctrl-g}|
|00005570| 62 63 6f 78 4d 20 4f 20 | 4e 20 54 20 48 7b 72 65 |bcoxM O |N T H{re|
|00005580| 74 75 72 6e 7d 79 50 52 | 49 43 45 7b 72 65 74 75 |turn}yPR|ICE{retu|
|00005590| 72 6e 7d 22 20 26 ff 01 | 00 ff 09 09 20 20 20 22 |rn}" &..|....   "|
|000055a0| 7b 75 70 6c 65 76 65 6c | 7d 64 7b 75 70 61 72 72 |{uplevel|}d{uparr|
|000055b0| 6f 77 7d 7b 72 65 74 75 | 72 6e 7d 7b 66 39 7d 22 |ow}{retu|rn}{f9}"|
|000055c0| 29 2c ff 01 00 ff ff 01 | 00 ff 40 6e 65 78 74 6b |),......|..@nextk|
|000055d0| 65 79 2c ff 01 00 ff 40 | 70 65 72 66 6f 72 6d 6b |ey,....@|performk|
|000055e0| 65 79 73 28 22 7b 65 73 | 63 7d 22 29 2c ff 01 00 |eys("{es|c}"),...|
|000055f0| ff 40 65 63 68 6f 28 65 | 63 68 6f 00 80 29 00 ff |.@echo(e|cho..)..|
|00005600| 03 00 ce 01 18 80 00 00 | 00 01 00 00 02 01 18 00 |........|........|
|00005610| 01 00 a5 02 cf 01 00 00 | 60 05 be 01 66 05 01 00 |........|`...f...|
|00005620| 02 00 09 00 0d 01 23 46 | 55 4e 43 54 49 4f 4e 00 |......#F|UNCTION.|
|00005630| 04 00 d0 01 02 00 05 40 | 01 00 03 00 19 00 03 00 |.......@|........|
|00005640| 1f 00 16 00 30 00 14 00 | 1e 00 13 00 30 00 14 00 |....0...|....0...|
|00005650| 1e 00 15 00 30 00 16 00 | 1f 00 16 00 64 05 00 00 |....0...|....d...|
|00005660| 00 00 00 00 04 00 00 00 | 41 04 01 00 00 41 ac 02 |........|A....A..|
|00005670| 02 00 d2 01 18 82 00 00 | 00 01 00 00 02 00 08 00 |........|........|
|00005680| 74 72 61 6e 73 66 65 72 | 00 ff ff ff ff ff ff ff |transfer|........|
|00005690| 4c 00 d4 01 18 82 00 00 | 00 01 00 00 02 00 42 04 |L.......|......B.|
|000056a0| 3b 20 54 72 61 6e 73 66 | 65 72 ff 01 00 ff 3b 20 |; Transf|er....; |
|000056b0| 40 69 74 65 6d 31 20 69 | 73 20 74 68 65 20 63 61 |@item1 i|s the ca|
|000056c0| 70 74 75 72 65 64 20 64 | 61 74 61 20 77 6f 72 64 |ptured d|ata word|
|000056d0| 20 66 72 61 6d 65 ff 01 | 00 ff 3b 20 40 69 74 65 | frame..|..; @ite|
|000056e0| 6d 32 20 69 73 20 74 68 | 65 20 73 70 72 65 61 64 |m2 is th|e spread|
|000056f0| 73 68 65 65 74 ff 01 00 | ff ff 01 00 ff 40 6c 6f |sheet...|.....@lo|
|00005700| 63 61 6c 28 64 61 74 61 | 2c 20 64 6a 73 73 2c 20 |cal(data|, djss, |
|00005710| 6a 2c 20 6c 65 6e 67 74 | 68 29 2c ff 01 00 ff ff |j, lengt|h),.....|
|00005720| 01 00 ff 64 61 74 61 20 | 3a 3d 20 40 69 74 65 6d |...data |:= @item|
|00005730| 31 2c ff 01 00 ff 64 6a | 73 73 20 3a 3d 20 40 69 |1,....dj|ss := @i|
|00005740| 74 65 6d 32 2c ff 01 00 | ff ff 01 00 ff 64 6a 73 |tem2,...|.....djs|
|00005750| 73 2e 41 31 20 3a 3d 20 | 22 44 61 74 65 22 2c ff |s.A1 := |"Date",.|
|00005760| 01 00 ff 64 6a 73 73 2e | 42 31 20 3a 3d 20 22 48 |...djss.|B1 := "H|
|00005770| 69 67 68 22 2c ff 01 00 | ff 64 6a 73 73 2e 43 31 |igh",...|.djss.C1|
|00005780| 20 3a 3d 20 22 4c 6f 77 | 22 2c ff 01 00 ff 64 6a | := "Low|",....dj|
|00005790| 73 73 2e 44 31 20 3a 3d | 20 22 43 6c 6f 73 65 22 |ss.D1 :=| "Close"|
|000057a0| 2c ff 01 00 ff 64 6a 73 | 73 2e 45 31 20 3a 3d 20 |,....djs|s.E1 := |
|000057b0| 22 56 6f 6c 28 31 30 30 | 2f 53 29 22 2c ff 01 00 |"Vol(100|/S)",...|
|000057c0| ff ff 01 00 ff 6c 65 6e | 67 74 68 20 3a 3d 20 40 |.....len|gth := @|
|000057d0| 6c 65 6e 28 64 61 74 61 | 29 2c ff 01 00 ff 6a 20 |len(data|),....j |
|000057e0| 3a 3d 20 31 2c ff 01 00 | ff 40 77 68 69 6c 65 28 |:= 1,...|.@while(|
|000057f0| 6a 20 3c 20 6c 65 6e 67 | 74 68 2c ff 01 00 ff 09 |j < leng|th,.....|
|00005800| 40 70 72 6f 6d 70 74 28 | 40 69 6e 74 65 67 65 72 |@prompt(|@integer|
|00005810| 28 6a 29 29 2c ff 01 00 | ff ff 01 00 ff 09 40 70 |(j)),...|......@p|
|00005820| 75 74 28 64 6a 73 73 2e | 41 32 3a 64 6a 73 73 2e |ut(djss.|A2:djss.|
|00005830| 41 31 33 2c ff 01 00 ff | 09 09 40 73 65 6c 65 63 |A13,....|..@selec|
|00005840| 74 28 40 76 61 6c 75 65 | 28 40 6d 69 64 28 64 61 |t(@value|(@mid(da|
|00005850| 74 61 2c 6a 2c 32 29 29 | 2c 22 4a 61 6e 22 2c 22 |ta,j,2))|,"Jan","|
|00005860| 46 65 62 22 2c 22 4d 61 | 72 22 2c 22 41 70 72 22 |Feb","Ma|r","Apr"|
|00005870| 2c 22 4d 61 79 22 2c 22 | 4a 75 6e 22 2c ff 01 00 |,"May","|Jun",...|
|00005880| ff 09 09 09 09 09 09 09 | 09 09 20 20 20 22 4a 75 |........|..   "Ju|
|00005890| 6c 22 2c 22 41 75 67 22 | 2c 22 53 65 70 22 2c 22 |l","Aug"|,"Sep","|
|000058a0| 4f 63 74 22 2c 22 4e 6f | 76 22 2c 22 44 65 63 22 |Oct","No|v","Dec"|
|000058b0| 29 29 2c ff 01 00 ff 09 | 40 6e 65 78 74 28 64 6a |)),.....|@next(dj|
|000058c0| 73 73 2e 41 32 3a 64 6a | 73 73 2e 41 31 33 29 2c |ss.A2:dj|ss.A13),|
|000058d0| ff 01 00 ff ff 01 00 ff | 09 3b 20 74 6f 20 66 69 |........|.; to fi|
|000058e0| 72 73 74 20 6e 75 6d 65 | 72 69 63 20 66 69 65 6c |rst nume|ric fiel|
|000058f0| 64 ff 01 00 ff 09 6a 20 | 3a 3d 20 6a 20 2b 20 31 |d.....j |:= j + 1|
|00005900| 31 2c ff 01 00 ff 09 40 | 70 75 74 28 64 6a 73 73 |1,.....@|put(djss|
|00005910| 2e 42 32 3a 64 6a 73 73 | 2e 42 31 33 2c 40 76 61 |.B2:djss|.B13,@va|
|00005920| 6c 75 65 28 40 6d 69 64 | 28 64 61 74 61 2c 6a 2b |lue(@mid|(data,j+|
|00005930| 34 2c 33 29 26 22 2b 22 | 26 40 6d 69 64 28 64 61 |4,3)&"+"|&@mid(da|
|00005940| 74 61 2c 6a 2c 34 29 29 | 29 2c ff 01 00 ff 09 40 |ta,j,4))|),.....@|
|00005950| 6e 65 78 74 28 64 6a 73 | 73 2e 42 32 3a 64 6a 73 |next(djs|s.B2:djs|
|00005960| 73 2e 42 31 33 29 2c ff | 01 00 ff ff 01 00 ff 09 |s.B13),.|........|
|00005970| 6a 20 3a 3d 20 6a 20 2b | 20 31 30 2c ff 01 00 ff |j := j +| 10,....|
|00005980| 09 40 70 75 74 28 64 6a | 73 73 2e 43 32 3a 64 6a |.@put(dj|ss.C2:dj|
|00005990| 73 73 2e 43 31 33 2c 40 | 76 61 6c 75 65 28 40 6d |ss.C13,@|value(@m|
|000059a0| 69 64 28 64 61 74 61 2c | 6a 2b 34 2c 33 29 26 22 |id(data,|j+4,3)&"|
|000059b0| 2b 22 26 40 6d 69 64 28 | 64 61 74 61 2c 6a 2c 34 |+"&@mid(|data,j,4|
|000059c0| 29 29 29 2c ff 01 00 ff | 09 40 6e 65 78 74 28 64 |))),....|.@next(d|
|000059d0| 6a 73 73 2e 43 32 3a 64 | 6a 73 73 2e 43 31 33 29 |jss.C2:d|jss.C13)|
|000059e0| 2c ff 01 00 ff ff 01 00 | ff 09 6a 20 3a 3d 20 6a |,.......|..j := j|
|000059f0| 20 2b 20 31 30 2c ff 01 | 00 ff 09 40 70 75 74 28 | + 10,..|...@put(|
|00005a00| 64 6a 73 73 2e 44 32 3a | 64 6a 73 73 2e 44 31 33 |djss.D2:|djss.D13|
|00005a10| 2c 40 76 61 6c 75 65 28 | 40 6d 69 64 28 64 61 74 |,@value(|@mid(dat|
|00005a20| 61 2c 6a 2b 34 2c 33 29 | 26 22 2b 22 26 40 6d 69 |a,j+4,3)|&"+"&@mi|
|00005a30| 64 28 64 61 74 61 2c 6a | 2c 34 29 29 29 2c ff 01 |d(data,j|,4))),..|
|00005a40| 00 ff 09 40 6e 65 78 74 | 28 64 6a 73 73 2e 44 32 |...@next|(djss.D2|
|00005a50| 3a 64 6a 73 73 2e 44 31 | 33 29 2c ff 01 00 ff ff |:djss.D1|3),.....|
|00005a60| 01 00 ff 09 6a 20 3a 3d | 20 6a 20 2b 20 31 32 2c |....j :=| j + 12,|
|00005a70| ff 01 00 ff 09 40 70 75 | 74 28 64 6a 73 73 2e 45 |.....@pu|t(djss.E|
|00005a80| 32 3a 64 6a 73 73 2e 45 | 31 33 2c 40 76 61 6c 75 |2:djss.E|13,@valu|
|00005a90| 65 28 40 6d 69 64 28 64 | 61 74 61 2c 6a 2c 36 29 |e(@mid(d|ata,j,6)|
|00005aa0| 29 29 2c ff 01 00 ff 09 | 40 6e 65 78 74 28 64 6a |)),.....|@next(dj|
|00005ab0| 73 73 2e 45 32 3a 64 6a | 73 73 2e 45 31 33 29 2c |ss.E2:dj|ss.E13),|
|00005ac0| ff 01 00 ff ff 01 00 ff | 09 3b 20 6d 6f 76 65 20 |........|.; move |
|00005ad0| 74 6f 20 6e 65 78 74 20 | 6c 69 6e 65 ff 01 00 ff |to next |line....|
|00005ae0| 09 6a 20 3a 3d 20 6a 20 | 2b 20 39 2c ff 01 00 ff |.j := j |+ 9,....|
|00005af0| ff 01 00 ff 09 3b 20 74 | 65 73 74 20 66 6f 72 20 |.....; t|est for |
|00005b00| 6c 61 73 74 20 6c 69 6e | 65 ff 01 00 ff 09 40 69 |last lin|e.....@i|
|00005b10| 66 28 40 6d 69 64 28 64 | 61 74 61 2c 6a 2c 31 29 |f(@mid(d|ata,j,1)|
|00005b20| 20 3d 20 40 63 68 72 28 | 32 35 35 29 2c ff 01 00 | = @chr(|255),...|
|00005b30| ff 09 09 6a 20 3a 3d 20 | 6c 65 6e 67 74 68 29 29 |...j := |length))|
|00005b40| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00005b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+